Q: Проблема: в одном месте на диске хранятся файлы. Во втором - выборочные ярлыки на эти файлы. Как переписать, положим на флэшку или еще куда именно файлы, а не ярлыки? A: Код (vbs-скрипт): ========================================================================== ' Копирование файлов (в т.ч. файлов из ярлыков) из одной панели TC в другую ' ' В параметрах вызова из TC должно быть прописано: ' %L '====================================================================
Dim TempFile, TCS, MyShell, FSO Set TempFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0), 1) Set TCS = CreateObject("TCScript.Helper") Set MyShell = WScript.CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject")
Do While Not TempFile.AtEndOfStream MyFile = TempFile.ReadLine '----- Извлечение файла из ярлыка ----- If FSO.GetFile(MyFile).Type = "Shortcut" Then MyFile = MyShell.CreateShortcut(MyFile).TargetPath End If '-------------------------------------- If Not FSO.FileExists(TrgPath & "\" & FSO.GetFile(MyFile).Name) Then FSO.CopyFile MyFile, TrgPath & "\" End If Loop
Batya
Есть ещё один вариант: установить архиваторный плагин CopyLinkTarget и выполнять просто распаковку всех этих ярлыков в нужное место. ИМХО, достаточно удобный вариант.
