VBS 获取目录中的文件
时间: 2023-08-30 13:11:14 浏览: 65
你可以使用以下 VBS 代码来获取目录中的文件:
```vbscript
Dim fso, folder, files, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("C:\目录路径")
Set files = folder.Files
For Each file In files
WScript.Echo file.Name
Next
```
在上面的代码中,你需要将 `C:\目录路径` 替换为你想要获取文件列表的目录路径。然后,遍历 `folder.Files` 集合来获取该目录下的所有文件,并使用 `WScript.Echo` 输出每个文件的名称。
相关问题
VBS 获取当前目录
要获取当前目录的路径,您可以使用以下VBS脚本:
```vbscript
Set objFSO = CreateObject("Scripting.FileSystemObject")
currentDirectory = objFSO.GetAbsolutePathName(".")
WScript.Echo "当前目录: " & currentDirectory
```
上述代码使用 `FileSystemObject` 对象的 `GetAbsolutePathName` 方法来获取当前目录的绝对路径,并将其存储在 `currentDirectory` 变量中。然后,使用 `WScript.Echo` 语句将当前目录路径输出到命令行窗口。
您可以将以上代码保存为一个后缀名为.vbs的文件,并在所需目录下运行该脚本,即可获取当前目录的路径信息。
VBS 删除当前目录未被占用的文件
以下是一个 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` 文件,然后双击运行即可删除当前目录下未被占用的文件。需要注意的是,此脚本会永久删除文件,请谨慎使用。
相关推荐
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)