VBS 删除当前目录未被占用的文件
时间: 2024-03-09 12:44:12 浏览: 16
以下是一个 VBS 脚本,可以删除当前目录下未被占用的文件。
```vbscript
Option Explicit
Dim folderPath, objFSO, objFolder, objFiles, objFile
' 获取当前目录路径
folderPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
' 创建文件系统对象
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(folderPath)
Set objFiles = objFolder.Files
' 遍历文件并删除未被占用的文件
For Each objFile In objFiles
If Not objFile.IsOpen Then
objFile.Delete
End If
Next
' 释放对象
Set objFile = Nothing
Set objFiles = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
```
你可以将以上代码保存为 `.vbs` 文件,然后双击运行即可删除当前目录下未被占用的文件。需要注意的是,此脚本会永久删除文件,请谨慎使用。