Любой язык

Iska · Отправлено: **17:13, 08-07-2016** | #2

Код:

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

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

Jeerjmin · Отправлено: **17:34, 08-07-2016** | #3

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

Iska · Отправлено: **17:42, 08-07-2016** | #4

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

Jeerjmin · Отправлено: **17:57, 08-07-2016** | #5

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

mwz · Отправлено: **19:47, 08-07-2016** | #6

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

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

Iska · Отправлено: **20:08, 08-07-2016** | #7

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.