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

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文本文件的方法。

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