VBscript(二)Working with Folders
Working with FoldersCreating the Basic Folder
Just the Steps
To create a folder
1.
Create a file system object by using CreateObject.
2.
Use the CreateFolder command to create the folder.
CreateBasicFolder.vbs
Set objFSO = CreateObject("Scripting.FileSystemObject")Set objFolder = objFSO.CreateFolder("c:\fso1")Creating Multiple Folders
CreateMultiFolders.vbs
Option Explicit
Dim numFolders
Dim folderPath
Dim folderPrefix
Dim objFSO
Dim objFolder
Dim i
Dim objSHell
Dim myDocs
Set objSHell = CreateObject("wscript.shell")myDocs = objSHell.SpecialFolders("mydocuments")numFolders = 10
folderPath = myDocs & "\"
folderPrefix = "TempUser"
For i = 1 To numFolders
Set objFSO = CreateObject("Scripting.FileSystemObject")Set objFolder = objFSO.CreateFolder(folderPath & folderPreFix & i)
Next
WScript.Echo(i - 1 & " folders created")
注意:FSO创建一个文件夹时,其父目录必须已经创建好了.否则会创建失败.
Deleting a FolderDeleteBasicFolder.vbs
Set objFSO = CreateObject("Scripting.FileSystemObject")objFSO.DeleteFolder("c:\fso")DeleteMultiFolders.vbs
Option Explicit
Dim numFolders
Dim folderPath
Dim folderPrefix
Dim objFSO
Dim objFolder
Dim i
numFolders = 10
folderPath = "C:\"
folderPrefix = "TempUser"
For i = 1 To numFolders
Set objFSO = CreateObject("Scripting.FileSystemObject")objFSO.DeleteFolder(folderPath & folderPreFix & i)
Next
WScript.Echo(i - 1 & " folders deleted")
For …..Next 用法
Just the Steps
To implement For...Next
1.
On a new line in the script, type i followed by a variable and a count (such as For i = 1 to 10).
2.
On the next line, type the command to be performed.
3.
On the next line, type Next.