欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

vbscript(2)working with folders

更新时间: 2014-01-05 01:52:21 责任编辑: Author_N1

 

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.

 

上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:21
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2306/
本文WWW.DOC100.NET DOC100.NET版权所有。