VBS 另存文件到当前目录

你可以使用以下 VBS 代码将文件另存为当前目录：

Set fso = CreateObject("Scripting.FileSystemObject")
Set objFile = fso.GetFile("C:\path\to\original\file.txt")
objFile.Copy fso.GetParentFolderName(objFile) & "\newfile.txt", True

这将把原始文件 `file.txt` 复制并另存为当前目录下的 `newfile.txt`。请确保将 `C:\path\to\original\file.txt` 替换为原始文件的实际路径。

相关问题

vbs脚本另存txt文件

可以使用VBS脚本来另存txt文件。可以使用FileSystemObject对象的CreateTextFile方法来创建一个文本文件，然后使用WriteLine方法将文本写入文件中。以下是一个简单的VBS脚本示例，可以将文本写入txt文件中：

Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("C:\MyFile.txt", True)
MyFile.WriteLine("这是要写入的文本。")
MyFile.Close

在上面的示例中，CreateTextFile方法创建了一个名为"MyFile.txt"的文本文件，并将其保存在C:\目录下。True参数表示如果文件已经存在，则覆盖该文件。WriteLine方法将文本写入文件中，最后使用Close方法关闭文件。

VBS 删除当前目录未被占用的文件

以下是一个 VBS 脚本，可以删除当前目录下未被占用的文件。

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` 文件，然后双击运行即可删除当前目录下未被占用的文件。需要注意的是，此脚本会永久删除文件，请谨慎使用。