VBS对文件夹操作

VBS对文件夹操作

注册

regsvr32.exe %windir%/system32/scrrun.dll”

//第一个问题你的FSO可能没注册，你在“开始”---“运行”中输入“regsvr32.exe %windir%/system32/scrrun.dll”然后回车，重新注册一下FSO控件。//=====================<VBS对文件夹操作例子>

(1)创建文件夹

Dim fso, f

'如果指定的文件夹已经存在，则会出现错误。

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.CreateFolder("c:\New Folder")

复制代码

(2)删除文件夹

Dim fso,filespec

filespec="D:\电影" '要删除的文件夹路径

Set fso = CreateObject("Scripting.FileSystemObject")

fso.DeleteFolder(filespec)

'若删除只读文件夹则将上一行改为fso.DeleteFolder(filespec,true)

复制代码

(3)判断文件夹是否存在

Dim fso,msg,tt

Set fso = CreateObject("Scripting.FileSystemObject")

fldr="C:\Documents and Settings" '文件夹路径和名字

tt = fso.FolderExists(fldr) '存在返回true;不存在返回false

If tt=true Then

msg = fldr & " 存在。"

Else

msg = fldr & " 不存在。"

End If

Msgbox msg

复制代码

(4)获取指定目录下所有文件的文件名(不包含文件夹名)

Dim a

a="D:\文件夹1" '目标文件夹完整路径

Msgbox ShowFolderList(a)

Function ShowFolderList(folderspec)

Dim fso, f, f1, fc, s '定义变量

Set fso = CreateObject("Scripting.FileSystemObject") '创建对象Set f = fso.GetFolder(folderspec) '得到文件夹下folder对象

Set fc = f.Files

For Each f1 in fc '查找所有符合条件的文件名

s = s &

s = s & vbcrlf '得到结果并换行

Next

ShowFolderList = s

End Function

复制代码

(5)分离路径中的文件名(不带扩展名)

Msgbox GetTheBase("C:\tt.txt") 'GetTheBase返回值tt Function GetTheBase(filespec)

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

GetTheBase = fso.GetBaseName(filespec)

End Function

复制代码

//=====================<VBS对文件操作例子>

(1)创建文件

Dim fso, MyFile

Set fso = CreateObject("Scripting.FileSystemObject")

Set MyFile = fso.CreateTextFile("c:\123.txt", True) 'true则可以覆盖已有的同名文件

Msgbox "这是一个测试"

MyFile.Close 'close是必要的,不要省

复制代码

(2)删除文件

Dim fso,filespec

filespec="C:\123.txt" '要删除的文件

'设置成"C:\*.doc"则删除C目录下所有.doc扩展名的文档(但不会删除其子文件夹下.doc文档)

Set fso = CreateObject("Scripting.FileSystemObject")

fso.DeleteFile(filespec)

'若删除只读文件则将上一行改为fso.DeleteFile(filespec,true)

复制代码

(3)判断文件是否存在

Dim fso,msg,tt

Set fso = CreateObject("Scripting.FileSystemObject")

fle="C:\123.txt" '文件的完整路径

tt = fso.FileExists(fle) '存在返回true;不存在返回false

If tt=true Then