当前位置: 代码迷 >> vbScript >> VBscript(2)Working with Folders
  详细解决方案

VBscript(2)Working with Folders

热度:143   发布时间:2016-05-19 04:24:04.0
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.

 

  相关解决方案
本站暂不开放注册!
内测阶段只得通过邀请码进行注册!
 
  • 最近登录:Sat Dec 16 09:36:50 CST 2017
  • 最近登录:Sat Dec 16 09:36:50 CST 2017
  • 最近登录:Sat Dec 16 09:36:50 CST 2017
  • 最近登录:Sat Dec 16 09:36:50 CST 2017
  • 最近登录:Sat Dec 16 09:36:50 CST 2017