Код
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 на рабочий стол, но если таковой уже существует, то он его НЕ Заменяет.
Можно сделать так, чтобы этот файл заменялся?? спб.
