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

-1

我需要在位置中创建一个文本文件“setup.txt”C：\ Documents and Settings \ All Users \ Application Data \ xerox \ setapp在VB脚本位置C：\ Documents和Settings \所有用户\应用数据是常见apllication数据文件夹这里我们可以，我需要为that.Here其他使用单词“CSIDL_COMMON_APPDATA”或& H23 &请注意，如果有任何setup.txt文件已在那里 我需要删除那个旧的我需要插入新的“setup.txt”WHIC^h contatin空白值意味着新的一个在指定位置创建文本文件并删除旧文件

我是新来这个VBScript和我想要一个优化的代码，以acheive该功能

来源

2010-06-22 peter

任何专家在那里请帮我 – peter 2010-06-22 07:05:35

哇，VBScript中，这是很久以前的事......但我会给它一个镜头。

你需要什么，如果我理解正确的话，就是用它包含deleting，creating和copying文本文件的方法FileSystemObject。

我希望这至少能给你一些指引，让你开始。

来源

2010-06-22 07:12:42

我也喜欢下票没有解释 – 2010-07-02 10:56:36

+1，以抵消驾车通过下调投票。 – Tester101 2010-07-16 13:49:43

谢谢。对你的回答也是一样的 – 2010-07-17 06:00:28

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

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方法来真正将强制删除文件的最后一个参数）。

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

来源

2010-06-22 13:47:21 Tester101

我喜欢没有解释的选票。 – Tester101 2010-06-24 19:18:33

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

回答

相关问题