Копирование файла, на который указывает ярлык
Материал из TCKB 2.0
Q: Проблема: в одном месте на диске хранятся файлы. Во втором - выборочные ярлыки на эти файлы. Как переписать, положим на флэшку или еще куда именно файлы, а не ярлыки?
A: Код (vbs-скрипт):
'========================================================================== ' Копирование файлов (в т.ч. файлов из ярлыков) из одной панели TC в другую ' ' В параметрах вызова из TC должно быть прописано: ' %L '==================================================================== Dim TempFile, TCS, MyShell, FSO Set FSO = CreateObject("Scripting.FileSystemObject") Set TCS = CreateObject("TCScript.Helper") Set TempFile = FSO.OpenTextFile(WScript.Arguments(0), 1) Set MyShell = WScript.CreateObject("WScript.Shell") TCS.SendCommand(2030) TrgPath = TCS.GetTextFromClip 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
A: Есть ещё один вариант: установить архиваторный плагин CopyLinkTarget и выполнять просто распаковку всех этих ярлыков в нужное место. ИМХО, достаточно удобный вариант.
