Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Ада и другие языки _ VBScript
Автор: makrame 1.05.2007 15:07
Код
Dim WshSHell
Set WshShell = CreateObject("WScript.Shell")
strDesctopPath = WshShell.SpecialFolders("Desktop")
Dim fso, oFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFile = fso.GetFile("C:\1.txt")
oFile.Copy(strDesctopPath & "\1.txt")
Set WshShell = CreateObject("WScript.Shell")
strDesctopPath = WshShell.SpecialFolders("Desktop")
Dim fso, oFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFile = fso.GetFile("C:\1.txt")
oFile.Copy(strDesctopPath & "\1.txt")
Скрипт копирует файл C:/1.txt на рабочий стол, но если таковой уже существует, то он его НЕ Заменяет.
Можно сделать так, чтобы этот файл заменялся?? спб.
Автор: volvo 1.05.2007 15:19
Странно... У меня заменяет, как положено...
Автор: Гость 2.05.2007 0:23
признаю , ошибся 