Копирование файлов. - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - Копирование файлов. (http://forum.oszone.net/showthread.php?t=316587)

Копирование файлов.

Нужен скрипт для копирования файлов в папку Local текущего пользователя.
Подскажите как это сделать?

Код:

copy <Откуда> <Путь к папке Local>

P.S. Для меня непонятно, что есть «папка Local текущего пользователя».

Iska, Компьютер на работе один и тот-же, но из-за текучке кадров работники меняются. Создаются новые пользователи с чистым рабочим столом и тк работники совсем нулевые в плане работы ПК родилась идея скрипта, который будет копировать необходимые файлы на рабочий стол пользователя, который запустил скрипт. Скрипт будет лежать на серваке.

Так на Рабочий стол или некую непонятную мне «папка Local»?

Iska, Не в этом затруднения, рабочий стол (C:\Users\User1\Desktop) или Local (C:\Users\User1\AppData\Local).
Затруднения в том, что имя пользователя будет постоянно меняться, а скрипт должен подходить для всех и оставаться неизменным.

Jeerjmin, а не проще ли покидать всё нужное в папку c:\Users\Default (т.е. ярлыки Рабочего Стола — в папку c:\Users\Default\Desktop, начальные документы - в c:\Users\Default\Documents, ярлыки программ — в C:\Users\Default\AppData\Roaming\Microsoft\Windows\Start Menu, и т.д.)?

Собственно, я так уж лет десять делаю...

Jeerjmin, именно в этом. Потому как для одного местоположения — один код, для другого — другой.

Например:

Цитата:

Цитата Jeerjmin

рабочий стол »

Скрытый текст

Код:

Option Explicit



Dim strSourceFolder

Dim strDestFolder





strSourceFolder = "\\Server\Share"



With WScript.CreateObject("Scripting.FileSystemObject")

        If .FolderExists(strSourceFolder) Then

                strDestFolder = WScript.CreateObject("WScript.Shell").SpecialFolders("Desktop")

                .CopyFile .BuildPath(strSourceFolder, "*.*"), strDestFolder

        Else

                WScript.Echo "Source folder [" & strSourceFolder & "] not found."

                WScript.Quit 1

        End If

End With



WScript.Quit 0

Цитата:

Цитата Jeerjmin

или Local (C:\Users\User1\AppData\Local) »

Скрытый текст

Код:

Option Explicit



Dim strSourceFolder

Dim strDestFolder





strSourceFolder = "\\Server\Share"



With WScript.CreateObject("Scripting.FileSystemObject")

        If .FolderExists(strSourceFolder) Then

                strDestFolder = WScript.CreateObject("Shell.Application").NameSpace("shell:Local AppData").self.Path

                .CopyFile .BuildPath(strSourceFolder, "*.*"), strDestFolder

        Else

                WScript.Echo "Source folder [" & strSourceFolder & "] not found."

                WScript.Quit 1

        End If

End With



WScript.Quit 0

И то, и другое — на WSH.