[已解决]【vbs】删除文件

isdkz

以下是一个可以删除除自己以外的所有文件的vbs脚本：

1. Set fso = CreateObject("Scripting.FileSystemObject")
   
2. 
   
3. ' 获取当前脚本的路径
   
4. scriptPath = WScript.ScriptFullName
   
5. 
   
6. ' 获取当前脚本所在的文件夹路径
   
7. folderPath = fso.GetParentFolderName(scriptPath)
   
8. 
   
9. ' 获取文件夹中的所有文件
   
10. Set folder = fso.GetFolder(folderPath)
    
11. Set files = folder.Files
    
12. 
    
13. ' 遍历所有文件并删除除自己以外的所有文件
    
14. For Each file In files
    
15.     ' 判断文件名是否与当前脚本的文件名相同
    
16.     If file.Name <> fso.GetFileName(scriptPath) Then
    
17.         ' 删除文件
    
18.         fso.DeleteFile file.Path
    
19.     End If
    
20. Next
    

复制代码

请注意，此脚本将删除除自己以外的所有文件，包括文件夹中的所有文件。如果你只想删除特定类型的文件，比如txt文件，可以在遍历文件时添加一个判断条件，只删除符合条件的文件。以下是删除所有txt文件的示例：

1. Set fso = CreateObject("Scripting.FileSystemObject")
   
2. 
   
3. ' 获取当前脚本的路径
   
4. scriptPath = WScript.ScriptFullName
   
5. 
   
6. ' 获取当前脚本所在的文件夹路径
   
7. folderPath = fso.GetParentFolderName(scriptPath)
   
8. 
   
9. ' 获取文件夹中的所有文件
   
10. Set folder = fso.GetFolder(folderPath)
    
11. Set files = folder.Files
    
12. 
    
13. ' 遍历所有文件并删除所有txt文件
    
14. For Each file In files
    
15.     ' 判断文件扩展名是否为txt
    
16.     If LCase(fso.GetExtensionName(file.Name)) = "txt" Then
    
17.         ' 删除文件
    
18.         fso.DeleteFile file.Path
    
19.     End If
    
20. Next
    

复制代码

希望这可以帮助到你！如果你有任何其他问题，请随时提问。