VBS判断文件、文件夹是否存在、剪贴板操作
(2015-07-06 00:15:35)
判断文件夹是否存在
-
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
复制代码
判断文件是否存在
-
Dim fso,msg,tt
-
Set fso = CreateObject("Scripting.FileSystemObject")
-
fle="C:\123.txt" '文件的完整路径
-
tt = fso.FileExists(fle) '存在返回true;不存在返回false
-
If tt=true Then
-
msg = fle & " 存在。"
-
Else
-
msg = fle & " 不存在。"
-
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
复制代码
喜欢
0
赠金笔
加载中，请稍候......
喜欢
加载中…