2024年5月29日发(作者：)

VBS对文件夹操作

注册

%windir%/system32/”

//第一个问题你的FSO可能没注册，你在“开始”---“运行”中输入

“ %windir%/system32/”然后回车，重新注册一下FSO控件。

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

(1)创建文件夹

Dim fso, f

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

Set fso = CreateObject("stemObject")

Set f = Folder("c:New Folder")

复制代码

(2)删除文件夹

Dim fso,filespec

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

Set fso = CreateObject("stemObject")

Folder(filespec)

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

复制代码

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

Dim fso,msg,tt

Set fso = CreateObject("stemObject")

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

tt = Exists(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("stemObject") '创建对象

Set f = der(folderspec) '得到文件夹下folder对象

Set fc =

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

s = s &

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

Next

ShowFolderList = s

End Function

复制代码

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

Msgbox GetTheBase("C:") 'GetTheBase返回值tt

Function GetTheBase(filespec)

Dim fso