VBS对文件文件夹操作的例子

(1)创建文件夹

Dim fso, f
'如果指定的文件夹已经存在，则会出现错误。
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("c:\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 & f1.name 
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

(6)创建快捷方式的例子

'用CreateObject的方法开启WshShell
Set WshShell=CreateObject("WScript.Shell")
'制定文件夹为桌面
strDesKtop=WshShell.SpecialFolders("DesKtop")
'在制定文件夹创建"画笔.lnk"快捷方式
Set oShellLink=WshShell.CreateShortcut(strDesKtop&"\画图.lnk")
'制定快捷方式指向的目标程序
oShellLink.TargetPath="mspaint.exe"
'制定风格
oShellLink.WindowStyle=1
'制定热键
oShellLink.Hotkey="CTRL+SHIFT+P"
'制定图标
oShellLink.IconLocation="mspaint.exe,0"
'注释快捷方式
oShellLink.Description="有标准VBS建立的画笔快捷方式"
'制定工作目录
oShellLink.WorkingDirectory=strDesKtop
'保存快捷方式
oShellLink.Save

(7)获取文件创建访问等信息

Msgbox FileInfor("C:\b.txt")
Function FileInfor(FilePath)
Dim fso, f, s ,a
Set fso = CreateObject("Scripting.FileSystemObject")
a=FilePath '文件完整路径
Set f = fso.GetFile(a)
s = f.Path & vbcrlf
s = s & "创建时间: " & f.DateCreated & vbcrlf 
s = s & "访问时间: " & f.DateLastModified & vbcrlf
s = s & "修改时间: " & f.DateLastAccessed
ShowFileAccessInfo = s
FileInfor = s
End Function