создание текстового файла в указанном месте и удаление старого

Question

Мне нужно создать текстовый файл «setup.txt» в расположении C: \ Documents and Settings \ Все пользователи \ Application Data \ xerox \ setapp в VB-скрипте в расположении C:\ Documents and Settings \ All Users \ Application Data - это обычная папка данных приложения, здесь мы можем использовать слово " CSIDL_COMMON_APPDATA" или & H23 & .Файл .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 содержит методы удаления , создания и копирования текстовых файлов.

Надеюсь, это по крайней мере даст вам несколько указателей, которые помогут вамначал.