Копирование файла, на который указывает ярлык

Материал из 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


Batya


A: Есть ещё один вариант: установить архиваторный плагин CopyLinkTarget и выполнять просто распаковку всех этих ярлыков в нужное место. ИМХО, достаточно удобный вариант.


Константин Власов

Личные инструменты
Реклама
Классический мангал с решетками для барбекю по доступной цене
ковка-липецк.рф
Редукторы планетарные, червячные, цилиндрические и др. Хорошие цены
chel-reduktor.ru