在指定位置創建文本文件並刪除舊文件

-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

在指定位置創建文本文件並刪除舊文件

回答

相關問題