文件夹和文件操作,急!在线等待............

Question

D:盘内有很多文件,分别放在不同名和不同深度的文件夹中,如果我要删除所有的文件而不删除文件夹,应怎么办?大家帮帮忙给我讲一下思路或给我一段代码吧.

Answer 1

用FSO遍历
判断有文件就删除文件

Answer 2

Private Sub Form_Load()    Dim fso As Scripting.FileSystemObject
    Set fso = New Scripting.FileSystemObject
    
    Dim oFolder As Scripting.Folder
    Set oFolder = fso.GetFolder("D:\Delete")
    
    Call RemoveAllFilesInFolder(oFolder)End SubPrivate Sub RemoveAllFilesInFolder(ByVal oFolder As Scripting.Folder)    Dim oSubFolder As Scripting.Folder
    
    For Each oSubFolder In oFolder.SubFolders
        Call RemoveAllFilesInFolder(oSubFolder)
    Next oSubFolder    Dim oFile As Scripting.File
    
    For Each oFile In oFolder.Files
        Call oFile.Delete(True)
    Next oFileEnd Sub

Answer 3

引用Microsoft Scripting Runtime先~

Answer 4

请楼上的兄弟说清楚一点,怎么引用Microsoft Scripting Runtime?我找不到啦。