'==========================================================================
' Копирование файлов (в т.ч. файлов из ярлыков) из одной панели 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")

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

MsgBox(FSO.GetFile(MyFile).Type)

'==========================================================================
' Копирование файлов (в т.ч. файлов из ярлыков) из одной панели TC в другую
'
' В параметрах вызова из TC должно быть прописано:
' %L %T
'====================================================================

Dim TempFile, MyShell, FSO
Set TempFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0), 1)
Set MyShell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

TrgPath = WScript.Arguments(1)

Do While Not TempFile.AtEndOfStream
  MyFile = TempFile.ReadLine
  '----- Извлечение файла из ярлыка -----
  If FSO.GetFile(MyFile).Type = "Shortcut" Or FSO.GetFile(MyFile).Type = "Ярлык" 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

/*
Title: extractlnk.js
Author: John Gurin, Russia, Ekaterinburg
Date: 2010/01/04
Desc.: Copies files/folders from *.lnk target field

TOTAL COMMANDER BUTTON==============================
====================================================
TOTALCMD#BAR#DATA
cscript.exe %COMMANDER_PATH%\SCRIPTS\files_ops\extractlnk.js
%L "%T"
C:\WINDOWS\System32\CScript.exe
extractlnk
%COMMANDER_PATH%\SCRIPTS\files_ops\

-1
====================================================
*/
//SCRIPT CONFIG
var ONLYLNK = 1; //copies only *.lnk files
var WAITONFINISH = 1; //will keep console window when finished

//DECLARING
var fso, listfile, strname, sourcename, sourcebasename, strtarget, targetname;
var t="",parentfld, dirflag, fileext, optioninput, optionflag=0, rewriteflag=false;
var filler = "   ", msg, msgflag, lnkflag, tmpmsgsrcname;
var StdIn = WScript.StdIn;

var MSG_EXIST = " already exists. Rewrite?\n" +
            "[Y]=yes [N]=no [R]=rename [Q]=quit " +
            "[A]=all [E]=never";
var MSG_SUBDIR = "ERROR: COPYING A DIRECTORY TO ITS OWN SUBDIRECTORY";
var MSG_ITSELF = "ERROR: YOU CANNOT COPY A FILE TO ITSELF";

shell = new ActiveXObject("WScript.Shell");
fso = new ActiveXObject("Scripting.FileSystemObject");

//MAIN
if(WScript.arguments.length != 2){WScript.Quit();}

listfile = fso.OpenTextFile(WScript.Arguments(0), 1);
strtarget = RemoveLastSlash(WScript.Arguments(1));

Echo("Copying to " + strtarget + "\\");
while (!listfile.AtEndOfStream){
   strname = listfile.ReadLine();
   msg = "";
   msgflag = 0;
   lnkflag = 0;
   fileext = "";
   fileext = fso.GetExtensionName(strname).toUpperCase();
   if (ONLYLNK == 1 && fileext != "LNK"){continue;}
   t = RemoveLastSlash(fso.GetParentFolderName(strname));
   dirflag = (t == parentfld) ? 1 : 0;
   if (dirflag == 0){
      parentfld = t;
      dirflag = 1;
      Echo("\n" + t + "\\");
      }

   if (fileext == "LNK" && fso.FileExists(strname)){
      lnkflag=1;
      sourcename = shell.CreateShortcut(strname).TargetPath;
      Echo(filler + Truncate(fso.GetFileName(strname)));
      }else sourcename = strname;
   
   sourcename = RemoveLastSlash(sourcename);
   sourcebasename = fso.GetFileName(sourcename);
   (tmpmsgsrcname == sourcename) ? (tmpmsgsrcname = sourcebasename) : (tmpmsgsrcname = sourcebasename + "\\");
   targetname = strtarget + "\\" + sourcebasename;
   if(sourcename==targetname){Echo(filler + " TARGET = SOURCE");continue;}

   msg = Truncate(sourcebasename);
   
   if (fso.FolderExists(sourcename)){
      (lnkflag==1) ? (msg = filler + " DIR " + msg):(msg = filler + msg);
      msg+="\\";
      if(fso.FolderExists(targetname)){
         if(optionflag==0){
            Echo(msg + MSG_EXIST);
            msgflag = 1;
            optioninput = WaitInput(1);
            switch (optioninput.toUpperCase()){
               case "Y":
                  rewriteflag=true;
                  break;
               case "N":
                  rewriteflag=false;
                  break;
               case "A":
                  rewriteflag=true;
                  optionflag=1;
                  break;
               case "E":
                  rewriteflag=false;
                  optionflag=1;
                  break;
               case "R":
                  while(fso.FolderExists(targetname)){
                     targetname=strtarget + "\\" + WaitInput(2);
                  }
                  rewriteflag=1;
                  break;
               case "Q":
                  WScript.Quit();
            }
         }
         if(rewriteflag){
            (msgflag == 0) ? Echo(msg):false;
            try{fso.CopyFolder(sourcename, targetname, true);
               }catch(e){Echo(MSG_SUBDIR);}
            }
      }else{
         Echo(msg);
         try{fso.CopyFolder(sourcename, targetname, true);
            }catch(e){Echo(MSG_SUBDIR);}
         }
      
   }else if(fso.FileExists(sourcename)){  //file operation
         (lnkflag==1) ? (msg = filler + " FILE " + msg):(msg = filler + msg);
         if(fso.FileExists(targetname)){
            if(optionflag==0){
               Echo(msg + MSG_EXIST);
               msgflag = 1;
               optioninput = WaitInput(1);
               switch (optioninput.toUpperCase()){
                  case "Y":
                     rewriteflag=true;
                     break;
                  case "N":
                     rewriteflag=false;
                     break;
                  case "A":
                     rewriteflag=true;
                     optionflag=1;
                     break;
                  case "E":
                     rewriteflag=false;
                     optionflag=1;
                     break;
                  case "R":
                     while(fso.FileExists(targetname)){
                        targetname=strtarget + "\\" + WaitInput(2);
                     }
                     rewriteflag=1;
                     break;
                  case "Q":
                     WScript.Quit();
               }
            }
            if(rewriteflag){
               (msgflag == 0) ? Echo(msg):false;
               try{fso.CopyFile(sourcename, targetname, true);
                  }catch(e){Echo(MSG_ITSELF);}
            }
         }else{
            Echo(msg);
            try{fso.CopyFile(sourcename, targetname, true);
               }catch(e){Echo(MSG_ITSELF);}
            }
      }else{(lnkflag==1) ? Echo(filler + " TARGET MISSING " + Truncate(tmpmsgsrcname)) :
                     Echo(filler + "CANT FIND " + Truncate(tmpmsgsrcname));}
   }//while filelist
   

listfile.Close();
if(WAITONFINISH) WaitInput(0);

//FUNCTIONS
function WaitInput(mode){
   switch(mode){
      case 0:
      Echo("\nDone\nPress Enter");
      break;
      case 2:
      Echo("Enter new name:")
      break;
   }
   return(StdIn.ReadLine());
 }
function RemoveLastSlash(str){
 if (str.substring(str.length-1, str.lenght) == "\\")
   {
   str = str.slice(0,-1);
   }
   return(str);
 }
function Echo(str){
 WScript.Echo(str);
 }
function Truncate(str){
 var P = 40;
 if (str.length > P)
   {
   str = str.slice(0,P) + ".(...)." + fso.GetExtensionName(str);
   }
   return(str);
 }

'===================================================
' Копирование файлов\папок (в т.ч. из ярлыков)
'
' Параметры:
' {файл-список} {целевая папка}
'
' Пример параметров при вызове из TC:
' %L "%T"
'===================================================

Dim FF, WSH, FSO, TrgPath, F, NewPath
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
Set FF  = FSO.OpenTextFile(WScript.Arguments(0), 1)

TrgPath = WScript.Arguments(1)

Do While Not FF.AtEndOfStream
  F = FF.ReadLine
  If Right(F, 1) = "\" Then F = Left(F, Len(F) - 1)
  '----- Извлечение из ярлыка -----
  If LCase(FSO.GetExtensionName(F)) = "lnk" Then
    F = WSH.CreateShortcut(F).TargetPath
  End If
  '--------------------------------
  If FSO.FileExists(F) Then
    NewPath = TrgPath & FSO.GetFile(F).Name
    If Not FSO.FileExists(NewPath) Then
      FSO.CopyFile F, TrgPath
    End If
  End If
  If FSO.FolderExists(F) Then
    NewPath = TrgPath & FSO.GetFolder(F).Name
    If Not FSO.FolderExists(NewPath) Then
      FSO.CopyFolder F, TrgPath
    End If
  End If
Loop
FF.Close
Set FF  = Nothing
Set WSH = Nothing
Set FSO = Nothing
WScript.Quit 0

'===================================================
' Копирование файлов\папок (в т.ч. из ярлыков)
'
' Параметры:
' {файл-список} {целевая папка}
'
' Пример параметров при вызове из TC:
' %L "%T"
'===================================================
Sub xCopy (Path, TargetPath)
   Dim lnkName, xFolder, colFiles, objFile, colFolders, objFolder, res

   if Canceled then Exit Sub

   If LCase(FSO.GetExtensionName(Path)) = "lnk" Then
      lnkName = Replace(FSO.GetFileName(Path), ".lnk", "")
      Path = WSH.CreateShortcut(Path).TargetPath

      If FSO.FileExists(Path) then lnkName = lnkName & "." & FSO.GetExtensionName(Path)
   End If

   If Right(Path, 1) = "\" Then Path = Left(Path, Len(Path) - 1)

   If FSO.FileExists(Path) Then
      if lnkName = "" then lnkName = FSO.GetFile(Path).Name

      If FSO.FileExists(TargetPath  & lnkName) and not ReplaceAll Then
         res = msgbox ("File " & FSO.GetFile(Path).Name & " already exists", vbYesNoCancel, "Replase all")

         Select Case res
         Case 6 ' Yes
            ReplaceAll = true
            FSO.CopyFile Path, TargetPath  & lnkName
         Case 2 ' Cancel
            Canceled = true
            Exit Sub
         End Select
      else
         FSO.CopyFile Path, TargetPath  & lnkName
      End If
   End If   

   If FSO.FolderExists(Path) Then
      Set xFolder = FSO.GetFolder(Path)
      Set colFiles = xFolder.Files
      Set colFolders = xFolder.subFolders

      if lnkName = "" then  lnkName = FSO.GetFolder(Path).Name & "\"
      if  Not FSO.FolderExists(TargetPath & lnkName) then FSO.CreateFolder(TargetPath & lnkName)

      For Each objFolder in colFolders
         xCopy objFolder, TargetPath &  lnkName & "\"
      Next

      For Each objFile in colFiles
          xCopy objFile, TargetPath &  lnkName & "\"
      Next

      Set colFolders  = Nothing
      Set colFiles  = Nothing
      Set xFolder = Nothing 
   End If

End Sub


Dim WSH, FSO, FF, ReplaceAll, Canceled

if WScript.Arguments.count < 2 then WScript.Quit 1

Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
Set FF  = FSO.OpenTextFile(WScript.Arguments(0), 1)
ReplaceAll = false
Canceled = false

Do While Not FF.AtEndOfStream
   xCopy FF.ReadLine, WScript.Arguments(1)
Loop

FF.Close
Set FF  = Nothing
Set WSH = Nothing
Set FSO = Nothing

WScript.Quit 0

'•••••••••••••••••••••••• VBS ••••••••••••••••••••••••
' Копирование/перемещение выбранного по заданному пути
' с последующей заменой lnk-ярлыков на целевые объекты

' Условие:    путь запуска — пустой
' Примечание: в пути достаточно правильной буквы диска
'
' Параметры: %WF "<путь назначения>" <copy/move>
' Ключ системного автопереименования объектов: /r

' Примеры:   %WF "%PMy Folder" copy /r
'            %WF D:\New\New2\New3\New4\New5 move
'•••••••••••••••••••••••••••••••• Автор: Flasher © •••

Option Explicit : Dim A, FSO, REx, Rgx, T, Ren,_
D, Dic, Col, ShA, oFolder, oList, List, Folders,_
N, Items, F, Nm, Targ, Lnk, i, FPath, FlEx, FdEx

Set A = WSH.Arguments : If A.Count = 0 Then WSH.Quit
Set FSO = CreateObject("Scripting.FileSystemObject")
Set REx = New RegExp : REx.Pattern = "([.+[\(){$^])"
Set Rgx = New RegExp : Rgx.IgnoreCase = True
T = Timer: If A.Named.Exists("r") Then Ren = 8
REx.Global = True : D = FSO.GetDriveName(A(1))
Set Dic = CreateObject("Scripting.Dictionary")
Set Col = CreateObject("Scripting.Dictionary")
Set ShA = CreateObject("Shell.Application")

ShA.NameSpace(D).NewFolder Mid(A(1), Len(D) + 2)
Set oFolder = ShA.NameSpace(FSO.GetAbsolutePathName(""))
List = FSO.OpenTextFile(A(0),,,-1).ReadAll
oList = Split(List, vbNewLine)
For Each N in Filter(oList, ";")
  Nm = N
  If StrComp(FSO.GetExtensionName(N), "lnk", 1) _
  = 0 Then N = oFolder.ParseName(N).GetLink.Target
  Set Items = oFolder.Items
  Items.Filter 78064, Replace(N, ";", "?")
  Rgx.Pattern = "(^|\n)" & REx.Replace(N, "\$1") & "(\r|$)"
  For Each F in Items
    If Not F.IsLink Then N = "" Else N = F.GetLink.Path
    F = FSO.GetFileName(F.Path)
    If InStr(F, ";") Then Dic.Add F, N : Exit For
  Next : List = Rgx.Replace(List, "$1")
Next

Rgx.Pattern = "\r\n$" : List = Rgx.Replace(List, "")
Folders = Left(List, InStrRev(List, "\"))
For Each N in Filter(oList, ".lnk", 1, 1)
  If InStr(N, ";") = 0 Then
  With oFolder.ParseName(N)
    If .IsLink Then _
    Col.Add N, .GetLink.Path : Rgx.Pattern = "(^|\n)" &_
    REx.Replace(FSO.GetBaseName(N),"\$1") & "\.lnk(\r|$)":_
    List = Rgx.Replace(List, "$1" & .GetLink.Target & "$2")
  End With
  End If
Next : Set Items = oFolder.Items
Rgx.Pattern = "(^|\n)" & FSO.GetFileName(A(1)) & "\\(\r|$)"
List = Rgx.Replace(List, "$1") : If List = "" Then WSH.Quit

Set Targ = ShA.NameSpace(A(1)) : Items.Filter 78064,_
Replace(Replace(List, "\", ""), vbCrLf, ";")
Execute "Targ." & A(2) & "Here Items, 4112 + Ren"

For Each D in Array(Dic, Col)
  If D.Count Then
    For Each F in D
      FPath = D(F) : FlEx = FSO.FileExists(FPath)
      FdEx = FSO.FolderExists(FPath)
      If FlEx Or FdEx Then
        If LCase(A(2)) = "move" Then _
        If FlEx Then FSO.DeleteFile F, 1 Else FSO.DeleteFolder F, 1
        Targ.CopyHere FPath, 4112 + Ren
      End If
    Next
  End If : Set D = Nothing : i = 1
Next
For Each F in Split(Folders, vbCrLf) : FFolder FSO.BuildPath(A(1), F) : Next
T = Timer - T
If T > 3 Then
  Dim Sec, Title : If T < 10 Then Sec = 2 Else If T < 30 Then Sec = 4
  Title = "Копирование": If LCase(A(2)) = "move" Then Title = "Перемещение"
  CreateObject("WScript.Shell").Popup "Выполнено!", Sec, " " & Title, 4160
End If

Sub FFolder(Folder)
  Dim oFold, File, Fold
  Set oFold = ShA.NameSpace(Folder)
  Set Items = oFold.Items : Items.Filter 78032, "*"
  For Each File in Items
    If File.IsLink And LCase(FSO.GetExtensionName(File.Path)) <> "url" Then _
    oFold.CopyHere File.GetLink.Path, 4112 + Ren : FSO.DeleteFile File.Path, 1
  Next : Items.Filter 78000, "*"
  For Each Fold in FSO.GetFolder(Folder).SubFolders
    If FSO.FolderExists(Fold) Then FFolder Fold.Path
  Next
End Sub

TOTALCMD#BAR#DATA
C:\ReadMe.vbs
%WF "%T" copy
C:\Windows\System32\WScript.exe,2
ReadMe


-1

Сценарий:   C:\ReadMe.vbs
Строка:   0
Символ:   1
Ошибка:   Недопустимый вызов или аргумент процедуры
Код:   800A0005
Источник:    Ошибка выполнения Microsoft VBScript

1992.10 - Out Of Space (Elektra 2-66346).LNK
1992.11 - Out Of Space (XLS 35CD).LNK
2009.11 - Invaders Must Die (HOSPCDS06).LNK
2012.09.04 - 7th Mini Album - Mirage.LNK

TOTALCMD#BAR#DATA
C:\ReadMe.vbs
%WF "%T" copy /r
C:\Windows\System32\WScript.exe,2
ReadMe


-1

— копия

Сценарий:   C:\ReadMe.vbs
Строка:   33
Символ:   5
Ошибка:   Требуется объект
Код:   800A01A8
Источник:    Ошибка выполнения Microsoft VBScript

01 mka dvd-audio araw;24bit,96000hz,4608kbs.mka

TOTALCMD#BAR#DATA
C:\ReadMe.vbs
%WF "%T" copy /r
C:\Windows\System32\WScript.exe,2
ReadMe


-1

TOTALCMD#BAR#DATA
C:\ReadMe.vbs
%WF "%T" copy /r
C:\Windows\System32\WScript.exe,2
ReadMe


-1

Сценарий:   C:\ReadMe.vbs
Строка:   39
Символ:   1
Ошибка:   Требуется объект
Код:   800A01A8
Источник:    Ошибка выполнения Microsoft VBScript

Сценарий:   C:\ReadMe.vbs
Строка:   39
Символ:   1
Ошибка:   Требуется объект
Код:   800A01A8
Источник:    Ошибка выполнения Microsoft VBScript

Сценарий:   C:\ReadMe.vbs
Строка:   118
Символ:   3
Ошибка:   Требуется объект: 'Item'
Код:   800A01A8
Источник:    Ошибка выполнения Microsoft VBScript

Сценарий:   C:\ReadMe.vbs
Строка:   39
Символ:   1
Ошибка:   Требуется объект
Код:   800A01A8
Источник:    Ошибка выполнения Microsoft VBScript

Сценарий:   C:\ReadMe.vbs
Строка:   118
Символ:   3
Ошибка:   Требуется объект: 'Item'
Код:   800A01A8
Источник:    Ошибка выполнения Microsoft VBScript

Сценарий:   C:\ReadMe.vbs
Строка:   118
Символ:   3
Ошибка:   Требуется объект: 'Item'
Код:   800A01A8
Источник:    Ошибка выполнения Microsoft VBScript

Сценарий:   C:\ReadMe.vbs
Строка:   62
Символ:   7
Ошибка:   Требуется объект: 'Item(...)'
Код:   800A01A8
Источник:    Ошибка выполнения Microsoft VBScript

Сценарий:   C:\Link.vbs
Строка:   4
Символ:   1
Ошибка:   Объект не поддерживает это свойство или метод: 'CreateObject(...).Items'
Код:   800A01B6
Источник:    Ошибка выполнения Microsoft VBScript

Сценарий:   C:\Link.vbs
Строка:   8
Символ:   1
Ошибка:   Требуется объект: 'Items.Item(...)'
Код:   800A01A8
Источник:    Ошибка выполнения Microsoft VBScript

MsgBox Items.Count

Сценарий:   C:\ReadMe.vbs
Строка:   63
Символ:   7
Ошибка:   Требуется объект: 'Item(...)'
Код:   800A01A8
Источник:    Ошибка выполнения Microsoft VBScript

С:\Scrat's Continental Crack Up_h1080p Part 2.lnk

"E:\Video\Torrents\Other\Scrat's Continental Crack Up_h1080p Part 2.mkv"

Сценарий:   C:\ReadMe.vbs
Строка:   62
Символ:   7
Ошибка:   Требуется объект: 'ParseName(...)'
Код:   800A01A8
Источник:    Ошибка выполнения Microsoft VBScript

Сценарий:   C:\ReadMe.vbs
Строка:   62
Символ:   7
Ошибка:   Требуется объект: 'Item(...)'
Код:   800A01A8
Источник:    Ошибка выполнения Microsoft VBScript

TOTALCMD#BAR#DATA
C:\ReadMe.vbs
%WF "%T" copy /r
C:\Windows\System32\WScript.exe,2
ReadMe


-1

Сценарий:   C:\ReadMe.vbs
Строка:   127
Символ:   3
Ошибка:   Требуется объект: 'oFold'
Код:   800A01A8
Источник:    Ошибка выполнения Microsoft VBScript

TOTALCMD#BAR#DATA
C:\ReadMe.vbs
%WF "%T" move /r
C:\Windows\System32\WScript.exe,2
ReadMe


-1

Сценарий:   C:\ReadMe.vbs
Строка:   97
Символ:   30
Ошибка:   Путь не найден
Код:   800A004C
Источник:    Ошибка выполнения Microsoft VBScript

"E:\Video\Torrents\Other\Scrat's Continental Crack Up_h1080p Part 2.mkv"

C:\Scrat's Continental Crack Up_h1080p Part 2.lnk
C:\Scrat's Continental Crack Up_h1080p Part 2.mkv

C:\Scrat's Continental Crack Up_h1080p Part 2.lnk

C:\Test\

C:\Test — копия\

C:\Test - копия

C:\Test — копия

C:\Scrat's Continental Crack Up_h1080p Part 2.lnk

"E:\Video\Torrents\Other\Scrat's Continental Crack Up_h1080p Part 2.mkv"

"E:\Video\Torrents\Other\Scrat's Continental Crack Up_h1080p Part 2.mkv"

"E:\Video\Torrents\Other\Scrat's Continental Crack Up_h1080p Part 2.mkv"