作者：绿色风
分类：
时间：2022-08-17
浏览：98
楼主
gvntw |
Q：如何判断某个文件夹是否存在？
A：宏代码如下，请自行修改红色部分。
- Sub gvntw()
- Set fso = CreateObject("Scripting.FileSystemObject")
- If fso.FolderExists("D:\Temp") Then
- MsgBox "文件夹存在"
- Else
- MsgBox "文件夹不存在"
- End If
- End Sub
|
2楼
gvntw |
Q：如何判断某个文件是否存在？
A：两种方法供参考：
- Sub gvntw()
- Set FSO = CreateObject("Scripting.FileSystemObject")
- If FSO.FileExists("D:\Book1.xlsx") Then
- MsgBox "文件存在"
- Else
- MsgBox "文件不存在"
- End If
- End Sub
- Sub gvntw()
- y = Dir("D:\Book1.xlsx")
- If y = "" Then
- MsgBox "文件不存在"
- Else
- MsgBox "文件存在"
- End If
- End Sub
|
3楼
gvntw |
Q：如何判断指定盘符是否存在？
A：以判断 F 盘为例，代码如下：
- Sub DriveExist()
- Dim fso As Object
- Set fso = CreateObject("Scripting.FileSystemObject")
- If fso.driveexists("F:") Then
- MsgBox "F盘存在"
- Else
- MsgBox "F盘不存在"
- End If
- Set fso = Nothing
- End Sub
|
4楼
水星钓鱼 |
学习了FileSystemObject对象。
如果不创建这个对象。好像这样也可以- Sub 判断某个文件夹是否存在()
- If Dir("d:\excel", vbDirectory) = "" Then
- MsgBox "该文件夹不存在"
- Else
- MsgBox "该文件夹存在"
- End If
- End Sub
- Sub 判定指定的盘符是否存在()
- On Error GoTo prompt
- Dir ("f:")
- MsgBox "F盘存在"
- Exit Sub
- prompt:
- MsgBox "F盘不存在"
- End Sub
|
5楼
chrisfang |
Q：如何判断指定路径下的文件是否存在?
A：可以使用DIR函数、FSO等方法，参考以下代码：
DIR:
- Sub Existfile1()
- filen = InputBox("请输入需要查找的完整文件名", "在当前路径下测试文件是否存在")
- If Dir(ThisWorkbook.Path & "\" & filen) <> "" Then
- MsgBox "：） 此文件存在！"
- Else
- MsgBox "：（此文件不存在！"
- End If
- End Sub
FSO:
- Sub Existfile2()
- filen = InputBox("请输入需要查找的完整文件名", "在当前路径下测试文件是否存在")
- Set fso = CreateObject("Scripting.FileSystemObject")
- If fso.FileExists(ThisWorkbook.Path & "\" & filen) Then
- MsgBox "：）此文件存在！"
- Else
- MsgBox "：（此文件不存在！"
- End If
- Set fso = Nothing
- End Sub
以上两个程序均在当前工作簿所在路径下测试文件是否存在。
 测试文件是否存在.rar
|
6楼
lcydhpc |
就是说只能用VBA啦!想到VBA就头疼!呵呵 |
7楼
lcydhpc |
怎么都是2007版的，我用的Excel是2003版的，看不到啊! |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一