Логон скрипт - Копировать файл из общей папки на рабочий стол пользователя
Например из \\fileserver\sharedfolder\file.file в %USERPROFILE%\Desktop\File.file
Но не перезаписывать, если он уже существует.
Посмотрел copy и xcopy, но там нет параметра не перезаписывать.
Как?
Может на ps?
|
if exist "%USERPROFILE%\Desktop\File.file" не катит?
|
В общем накидал примерно следующее:
читать дальше »
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
Но почему то не работает.
Хелп? |
Все просто
сравните размер кода
+ гарантированно работает под любой виндой
if not exist "%USERPROFILE%\Desktop\File.file" copy \\fileserver\sharedfolder\file.file "%USERPROFILE%\Desktop\File.file" >nul
|
Точно.
Этим и воспользуюсь.
|
| Bruce Wayne |
26-07-2012 18:47 1959429 |
diga, ещё можно при помощи echo n| copy
|
Цитата:
+ гарантированно работает под любой виндой
|
Код:
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
|
lchou,
Спасибо, попробую.
А как указать сетевой путь в этом vbs?
|
Цитата:
Цитата diga
Но почему то не работает. »
|
Потому что раскрывать переменные окружения «%Var%» для FileSystemObject надо самому — например, при помощи «WshShell.ExpandEnvironmentStrings()».
Но правильнее для получения предопределённых путей использовать стандартные методы, как здесь:
Цитата:
Цитата lchou
Код:
strDestinFile = WshShell.SpecialFolders("Desktop") & "\" & "test.dat"
»
|
либо посредством объекта автоматизации «Shell.Application».
Цитата:
Цитата diga
А как указать сетевой путь в этом vbs? »
|
Код:
strSourceFile = "\\fileserver\sharedfolder\file.file"
|
Время: 03:04.
© OSzone.net 2001-
