Question

我需要在VB脚本中的位置 C：\ Documents and Settings \ All Users \ Application Data \ xerox \ setapp 中创建一个文本文件“setup.txt” 位置 C：\ Documents and Settings \ All Users \ Application Data 是常用的apllication数据文件夹，我们可以在这里使用“ CSIDL_COMMON_APPDATA”或＆amp; H23＆amp; 这个词。如果有任何setup.txt文件，我需要注意的另一个是已经在那个位置我需要删除那个旧的我需要插入新的“setup.txt”，其中包含空白值意味着新的

我是这个vbscript的新手，我想要一个优化的代码来实现这个功能

Answer 1

您可以打开文件进行写入并写一个空白行，这将创建新的文本文件并覆盖以前的任何版本。

    strFilename = " C:\Documents and Settings\All Users\Application Data\xerox\setapp.txt"
    Set objFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(strFilename,2,true)
     'Write stuff to the file here
    objFile.Close
    Set objFile = nothing

目前尚不清楚您的脚本是否正在创建日志文件，如果没有，您想复制该文件并覆盖之前的任何文件（将CopyFile方法中的最后一个参数设置为true将覆盖旧版本）。

Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile Source, Destination, true
Set fso = Nothing

如果您只想删除以前的文件（如果存在），您可以执行此操作（此处将DeleteFile方法中的最后一个参数设置为true将强制删除该文件）。

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(file) Then
     fso.DeleteFile file, true
End If
Set fso = Nothing

Answer 2

哇，VBScript，很久以前......但我会试一试。

如果我理解正确，您需要使用FileSystemObject包含deleting，creating和copying文本文件的方法。

我希望这至少可以为您提供一些指导，帮助您入门。

在指定位置创建文本文件并删除旧文件

2 个答案: