Логон скрипт - Копировать файл из общей папки на рабочий стол пользователя

[diga]

Например из \\fileserver\sharedfolder\file.file в %USERPROFILE%\Desktop\File.file
Но не перезаписывать, если он уже существует.
Посмотрел copy и xcopy, но там нет параметра не перезаписывать.
Как?
Может на ps?

[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"