• This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn more.

VBScript root folder property question

V

Vgolfmaster

#1
Hi again,

I now have a script which needs to access the root folder of a user defined
drive in order to test for the existance of sub folders. I am having no luck
getting access to the root folder of the selected drive. Is the 'getfolder'
method the wrong thing to be using for this? The script looks like this:

Option Explicit

'Declare Variables
Dim WshShl, iconyn, dtop, scut, dltr, argobj, fso, dready
Dim path, fold, subf

'Get User Input For Desktop Icon Creation

set WshShl = WScript.CreateObject("WScript.Shell")

iconyn = WshShl.Popup("Would you like a shortcut for this script"_
& " created on your desktop?",,"User Input",36)

'Process User Selection and Create Icon If Requested

If iconyn = 6 Then
dtop = WshShl.SpecialFolders("Desktop")
set scut = WshShl.CreateShortcut(dtop & "\Assignment6.lnk")
scut.TargetPath = "c:\assignment6.vbs"
scut.IconLocation = "c:\disk.ico"
scut.Save
End if

'Get user input for Drive letter selection
'31
dltr = InputBox("Please enter a drive letter")

'Check for existance of drive and if it is ready

Set fso = WScript.CreateObject("Scripting.filesystemobject")
If Not fso.DriveExists(dltr) Then
Wscript.Echo "That Drive does not Exist"
Wscript.Quit
End If
Set dready = fso.GetDrive(dltr)
If Not (dready.IsReady) Then
Wscript.Echo "That Drive Is Not Ready"
Wscript.Quit
End If

'Check root of selected drive for existance of sub folders

<b>set fold = fso.GetFolder(dltr)
set subf = fold.subfolders
If subf.count =0 Then
Wscript.echo "The Selected Drive Contains No Sub-Folders"
Wscript.Quit
End If
Wscript.Wcho "The Drive Contains Sub Folders!"</b>
 

My Computer

V

Vgolfmaster

#2
Please disregard this mssg, I just realized I had to designate the root as
'drive letter + :' and not 'drive letter + :\'

That got it working!

___________________________________________________________________

"Vgolfmaster" wrote:

> Hi again,
>
> I now have a script which needs to access the root folder of a user defined
> drive in order to test for the existance of sub folders. I am having no luck
> getting access to the root folder of the selected drive. Is the 'getfolder'
> method the wrong thing to be using for this? The script looks like this:
>
> Option Explicit
>
> 'Declare Variables
> Dim WshShl, iconyn, dtop, scut, dltr, argobj, fso, dready
> Dim path, fold, subf
>
> 'Get User Input For Desktop Icon Creation
>
> set WshShl = WScript.CreateObject("WScript.Shell")
>
> iconyn = WshShl.Popup("Would you like a shortcut for this script"_
> & " created on your desktop?",,"User Input",36)
>
> 'Process User Selection and Create Icon If Requested
>
> If iconyn = 6 Then
> dtop = WshShl.SpecialFolders("Desktop")
> set scut = WshShl.CreateShortcut(dtop & "\Assignment6.lnk")
> scut.TargetPath = "c:\assignment6.vbs"
> scut.IconLocation = "c:\disk.ico"
> scut.Save
> End if
>
> 'Get user input for Drive letter selection
> '31
> dltr = InputBox("Please enter a drive letter")
>
> 'Check for existance of drive and if it is ready
>
> Set fso = WScript.CreateObject("Scripting.filesystemobject")
> If Not fso.DriveExists(dltr) Then
> Wscript.Echo "That Drive does not Exist"
> Wscript.Quit
> End If
> Set dready = fso.GetDrive(dltr)
> If Not (dready.IsReady) Then
> Wscript.Echo "That Drive Is Not Ready"
> Wscript.Quit
> End If
>
> 'Check root of selected drive for existance of sub folders
>
> <b>set fold = fso.GetFolder(dltr)
> set subf = fold.subfolders
> If subf.count =0 Then
> Wscript.echo "The Selected Drive Contains No Sub-Folders"
> Wscript.Quit
> End If
> Wscript.Wcho "The Drive Contains Sub Folders!"</b>
>
>
 

My Computer

Users Who Are Viewing This Thread (Users: 1, Guests: 0)