[NoIZz]

if exist "%USERPROFILE%\Desktop\File.file" не катит?

[diga]

В общем накидал примерно следующее:

читать дальше »

Option Explicit
Dim strSourceDir, strDestinDir, FSO
const OverwriteExisting = False

strSourceDir = "C:\testfile.dat"
strDestinDir = "%USERPROFILE%\Desktop\test.dat"

on error resume next
set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile strSourceDir , strDestinDir , OverWriteExisting

Но почему то не работает.
Хелп?

[NoIZz]

Все просто
сравните размер кода
+ гарантированно работает под любой виндой
if not exist "%USERPROFILE%\Desktop\File.file" copy \\fileserver\sharedfolder\file.file "%USERPROFILE%\Desktop\File.file" >nul

[diga]

Точно.
Этим и воспользуюсь.

[Bruce Wayne]

diga, ещё можно при помощи echo n| copy

[lchou]

+ гарантированно работает под любой виндой

Код:

Option Explicit

Dim strSourceFile, strDestinFile, FSO, WshShell 
Const OverwriteExisting = False

set FSO = CreateObject("Scripting.FileSystemObject")
set WshShell = WScript.CreateObject("WScript.Shell")

strSourceFile = "C:\testfile.dat"
strDestinFile = WshShell.SpecialFolders("Desktop") & "\" & "test.dat"

rem On Error Resume Next

If Not FSO.FileExists(strDestinFile) Then
	FSO.CopyFile strSourceFile, strDestinFile, OverWriteExisting
End If

[diga]

lchou,
Спасибо, попробую.
А как указать сетевой путь в этом vbs?

[Iska]

Но почему то не работает. »

Потому что раскрывать переменные окружения «%Var%» для FileSystemObject надо самому — например, при помощи «WshShell.ExpandEnvironmentStrings()».

Но правильнее для получения предопределённых путей использовать стандартные методы, как здесь:

Код: strDestinFile = WshShell.SpecialFolders("Desktop") & "\" & "test.dat" »

либо посредством объекта автоматизации «Shell.Application».

А как указать сетевой путь в этом vbs? »

Код:

strSourceFile = "\\fileserver\sharedfolder\file.file"