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

Sorawithcat

写一个vbs文件，放在一个文件夹中，运行它，删除除了自己的所有文件（或者删除所有txt文件）

最佳答案

月排行榜 / 总排行榜

isdkz

2023-8-5 11:28:48

以下是一个可以删除除自己以外的所有文件的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
    

复制代码

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

跳转到最佳答案楼层

学习编程中的Ben

问题：编写一个 VBS 脚本，删除除了自己的所有文件（或者删除所有txt文件）。

你可以使用以下的 VBS 脚本来实现删除除了自己的所有文件：

1. Set fso = CreateObject("Scripting.FileSystemObject")
2. Set currentFile = fso.GetFile(WScript.ScriptFullName)
3. Set parentFolder = currentFile.ParentFolder
5. For Each file In parentFolder.Files
6.     If LCase(fso.GetExtensionName(file.Name)) <> "vbs" Then
7.         fso.DeleteFile(file.Path)
8.     End If
9. Next

复制代码

这段脚本首先创建了一个 FileSystemObject 对象，用于操作文件系统。然后，它获取当前脚本文件的路径，并获取其所在的父文件夹对象。

接下来，通过循环遍历父文件夹中的每个文件。对于每个文件，它检查文件扩展名是否为 "vbs"，如果不是则使用 FileSystemObject 的 DeleteFile 方法删除该文件。

请注意，上述代码只会删除与当前脚本文件位于同一文件夹内的文件，并且不会删除子文件夹中的文件。

如果你想删除所有的 txt 文件，只需将条件判断语句修改为 LCase(fso.GetExtensionName(file.Name)) = "txt" 即可。

希望这个 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
    

复制代码

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