VBS 获取当前目录
时间: 2023-09-10 21:09:34 浏览: 176
要获取当前目录的路径,您可以使用以下VBS脚本:
```vbscript
Set objFSO = CreateObject("Scripting.FileSystemObject")
currentDirectory = objFSO.GetAbsolutePathName(".")
WScript.Echo "当前目录: " & currentDirectory
```
上述代码使用 `FileSystemObject` 对象的 `GetAbsolutePathName` 方法来获取当前目录的绝对路径,并将其存储在 `currentDirectory` 变量中。然后,使用 `WScript.Echo` 语句将当前目录路径输出到命令行窗口。
您可以将以上代码保存为一个后缀名为.vbs的文件,并在所需目录下运行该脚本,即可获取当前目录的路径信息。
相关问题
vbs 获取当前时间 csdn
VBScript 获取当前时间的方法可以使用 Now 函数。Now 函数会返回当前系统时间和日期。通过将 Now 函数的返回值赋给一个变量,就可以获取当前时间。下面是一个示例:
```vbscript
Dim currentTime
currentTime = Now
WScript.Echo "当前时间是:" & currentTime
```
上述代码中,我们首先声明了一个变量 `currentTime`,然后将 Now 函数的返回值赋给这个变量。最后,使用 `WScript.Echo` 输出当前时间。
另外,如果需要以特定格式显示时间,可以使用 FormatDateTime 函数对返回的时间进行格式化。例如,将时间格式化为 "yyyy-mm-dd HH:mm:ss" 格式,可以使用以下代码:
```vbscript
Dim currentTime, formattedTime
currentTime = Now
formattedTime = FormatDateTime(currentTime, vbLongDate)
WScript.Echo "当前时间是:" & formattedTime
```
通过 `FormatDateTime(currentTime, vbLongDate)` 将 `currentTime` 格式化为长日期格式,然后将其赋给变量 `formattedTime`。再次使用 `WScript.Echo` 输出格式化后的时间。
希望能够帮助到你!
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` 文件,然后双击运行即可删除当前目录下未被占用的文件。需要注意的是,此脚本会永久删除文件,请谨慎使用。