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

sjwxsdj

努力学习……

jhegzwjb2016

liulang0808 发表于 2014-12-27 14:23
不带附件的fso文件及文件夹方法属性的汇总。。。。

谢谢大师的无私分享！！！！

PdLKK

谢谢分享，期待后续讲座

praijna

liulang0808老师，删除“D:\VBA\”这个目录下的所有文件（包含子目录以及子目录以下的文件），代码怎么写？

praijna

liulang0808老师，周末快乐！
请教一下：删除“D:\VBA\”这个目录下的所有文件（包含子目录以及子目录以下的文件），用FSO，代码怎么写？

tpb123

老师，学习了您的帖子，但是我自己操作过程中，经常碰到跳出拒绝的权限70，然后进去点调试，必须手动再按下f8执行下一步才可以进行程序接下来的操作，这是什么问题呢，这类问题经常在movefile和name等遇到，不知道什么原因？有劳您帮忙回复下，谢谢。

liulang0808

tpb123 发表于 2023-4-13 19:39
老师，学习了您的帖子，但是我自己操作过程中，经常碰到跳出拒绝的权限70，然后进去点调试，必须手动再按下 ...

楼主这个情况没有遇到过的，换台电脑看下

tpb123

liulang0808 发表于 2023-4-13 20:46
楼主这个情况没有遇到过的，换台电脑看下

按f8就可以下一步，不知道是啥子原因，我是用虚拟打印机打印成图片后，对图片进行移动和改名，老师这种情况，有没有可能是需要等待一会才可以的原因。

工藤新一與鳳玉

老师，我在用21楼查看文件夹属性的时候，查看一级文件夹的时候，提示：运行时错误’76‘ 路径未找到。运行“调试”，发现是在读取这个文件夹的size的时候报错，修改时间的相关信息都已经读出来了。是什么原因导致读不出该级文件夹大小呢？是因为当前这级文件夹大小超大了嘛？但是将路径换成这级文件夹的子文件，又是能看到所有信息的，这是为什么呢？

ning84

liulang0808 发表于 2014-12-21 11:13
1.2        移动文件
MoveFile方法用来移动文件，将文件从一个文件夹移动到另一个文件夹。其语法为：
FSO.MoveFi ...

1. 
   
2. Sub MovePicToFolder()
   
3.    Dim FSO  As Scripting.FileSystemObject
   
4.    Dim oFolder As Scripting.Folder
   
5.        Set FSO = New Scripting.FileSystemObject
   
6.    Dim Sht As Worksheet
   
7.    Dim Rng As Range, oRng As Range
   
8.    Dim PathFile, oPath
   
9.    Dim SourceFile, DestinationFolder
   
10.        Set Sht = Sheets("t")
    
11.        Set Rng = Sht.Cells(5, 1).CurrentRegion
    
12.        Debug.Print Rng.Address
    
13.        For ii = 1 To Rng.Rows.Count
    
14.            Set Sht = ThisWorkbook.Sheets(Format(Rng(ii, 1), "yyyy年m月"))
    
15.            Sht.Activate
    
16.            'Debug.Print Sht.Name
    
17.            Set oRng = Sht.Cells(5, 3).CurrentRegion
    
18.            Debug.Print oRng.Address,
    
19.            Set oRng = oRng.Resize(oRng.Rows.Count - 1, 9)
    
20.            Debug.Print oRng.Address,
    
21.            For ii1 = 1 To oRng.Rows.Count
    
22.                  ''
    
23.                  SourceFile = oRng(ii1, 9)
    
24.                  Debug.Print FSO.FileExists(SourceFile), SourceFile, oRng(ii1, 9).Address,
    
25.                  ''
    
26.                  If FSO.FileExists(SourceFile) Then
    
27.                       oPath = ThisWorkbook.Path & "" & Sht.Name & "" & oRng(ii1, 6)
    
28.                       DestinationFolder = ThisWorkbook.Path & "" & Sht.Name & "" '& oRng(ii, 6)
    
29.                       Debug.Print oPath, DestinationFolder,
    
30.                       Debug.Print FSO.FileExists(oPath)
    
31.                      
    
32.                       If Not FSO.FileExists(oPath) Then
    
33.                           FSO.MoveFile SourceFile, DestinationFolder
    
34.                       End If
    
35.                  End If
    
36.                  
    
37.                  Debug.Print PathFile, oPath
    
38.            Next ii1
    
39.            Debug.Print "--------------"
    
40.        Next ii
    
41. End Sub

复制代码