VBscript(二)Working with Folders

Working with Folders

Creating 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 Folder

DeleteBasicFolder.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.