用vba选择文件夹

小蕾丝。

谢谢楼主分享！学习了

小蕾丝。

太好了，太需要了，感谢楼主的支持

cs198838

新人，看的不是很懂

days0717

用filename=application.getopenfilename(“任意文件,*.*")     '随意“打开”一个文件，
'再通过
file = Dir(Filename)
folder = Left(Filename, Len(Filename) - Len(file))
是不是要这个效果

筱悠

哎，悲剧啊  都看不懂

yanglinzi

谢谢分享。

ning84

再一次学习Shell

1. Private Sub deldel()
   
2.     Dim Fso As FileSystemObject
   
3.         Set Fso = New FileSystemObject
   
4.     Dim oFile As File
   
5.     Dim Rng As Range
   
6.     Dim oSh As Shell32.Shell
   
7.         Set oSh = New Shell32.Shell
   
8.     Dim FolderIt As FolderItem
   
9.         Set Rng = Selection
   
10.         Set oFile = Fso.GetFile(Rng)
    
11.         Debug.Print oFile.Path
    
12.       oDir = Replace(oFile, oFile.Name, "")
    
13.       
    
14.       Set FolderIt = oSh.Namespace(oDir).ParseName(oFile.Name)
    
15.       
    
16.       Ss = FolderIt.ExtendedProperty("System.Photo.DateTaken")
    
17.       
    
18.       Debug.Print FolderIt.ExtendedProperty("System.Photo.DateTaken") = ""
    
19.       Debug.Print oFile.DateLastModified, oFile.Name
    
20.       Debug.Print oFile.DateCreated, oFile.DateLastAccessed
    
21.       Stop
    
22.       Stop
    
23.       oDate = CDate(FolderIt.ExtendedProperty("System.Photo.DateTaken")) + #8:00:00 AM#
    
24.       Debug.Print oDate
    
25.       Stop
    
26.       Stop
    
27.         
    
28. End Sub
    

复制代码