FSO之文件及文件夹操作及获取相关属性等

申会民

正在学习文件夹的操作，谢谢!

无雨谷

学习了，谢谢分享

伶俐的毛豆

相當好，謝謝樓主分享

jygzcj

liulang0808 发表于 2014-12-21 11:12
1.文件有关的操作
1.1判断文件是否存在
FileExists方法用于判断指定的文件是否存在，若存在则返回True。 ...

1. Sub test2()
   
2. 
   
3. Dim fso As Object
   
4. 
   
5. Set fso = CreateObject("scripting.filesystemobject")
   
6. 
   
7. If fso.fileexists("C:\python") Then
   
8. 
   
9.     MsgBox "ok"
   
10.    
    
11.     Else
    
12.    
    
13.     MsgBox "ng"
    
14.    
    
15. End If
    
16. 
    
17. 
    
18. 
    
19. 
    
20. 
    
21. 
    
22. End Sub
    

复制代码

文件夹明明存在，返回值为False

liulang0808

jygzcj 发表于 2021-12-27 22:42
文件夹明明存在，返回值为False

If fso.fileexists("C:\python") Then

"C:\python" 是文件吗还是文件夹？

jygzcj

liulang0808 发表于 2021-12-28 07:55
If fso.fileexists("C:\python") Then

"C:\python" 是文件吗还是文件夹？

不好意思。我写错了。应写FSO.folderexists("C:\python")

liulang0808

jygzcj 发表于 2021-12-28 20:29
不好意思。我写错了。应写FSO.folderexists("C:\python")

改完以后还有什么问题吗？

jygzcj

liulang0808 发表于 2021-12-28 20:36
改完以后还有什么问题吗？

可以了。完全正确。谢谢版主！

jygzcj

liulang0808 发表于 2021-12-28 20:36
改完以后还有什么问题吗？

版主你好！我想写一句，将此工作簿路径下面的
所有子文件夹中的excel 固定的Sheet1删除。这个要如何用FSO对象呢？
谢谢！

1. Sub Delete_Sheet1()
   
2. 
   
3.     Dim CurrentFolder As Object
   
4.    
   
5.     Dim ChildFolder As Object
   
6.    
   
7.     Dim xlsFile As Object
   
8.    
   
9.     Dim FSO As Object
   
10.    
    
11.     Set fs0 = CreateObject("scripting.filesystemobject")
    
12.    
    
13.     Set CurrentFolder = FSO.getfolder(ThisWorkbook.Path)
    
14.    
    
15.     For Each ChildFolder In CurrentFolder.subfolder
    
16. 
    
17.     Next
    
18. 
    
19. End Sub
    

复制代码

团子大家族cl

liulang0808 发表于 2014-12-27 13:08
2.11 获取文件夹有关信息
Sub 按钮1_Click()
    Application.ScreenUpdating = False

学习到了新知识！