Дублирование файловой структуры в обнулённом виде

[pcherevin]

Здравствуйте.
Добавил в исходный скрипт (Копирование "пустой" структуры каталогов с файлами) возможность не создавать определённый тип файлов (dat).

А как добавить копирование в очередь с параметрами *.* | *.dat?
Мне нужно чтобы именно TC копировал, как будто я сам нажал F5, выбрал "Только файлы типа - *.* | *.dat", нажал F2.

Код: Выделить всё

Option Explicit
Dim FSO, WSH, OTF, Target, NewTar
Dim Selected
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
Set OTF = FSO.OpenTextFile(WScript.Arguments(0), 1, False, -2)
Target  = WScript.Arguments(1)
Do While Not OTF.AtEndOfStream
  Selected = OTF.ReadLine
 
  
  If FSO.FileExists(Selected) And Right(Selected,4)<>".dat" Then
    FSO.CreateTextFile(Target & FSO.GetFile(Selected).Name)
  End If
  If FSO.FolderExists(Selected) Then
    NewTar = Target & FSO.GetFolder(Selected).Name
    If Not FSO.FolderExists(NewTar) Then
      FSO.CreateFolder(NewTar)
    End If
    FolderProcess FSO.GetFolder(Selected), NewTar & "\"
  End If
Loop

Set OTF = Nothing
Set FSO = Nothing
Set WSH = Nothing
WScript.Quit()
 
Function FolderProcess(Fold, Tar)
  Dim sf, f, NewF
  For Each sf in Fold.SubFolders
    NewF = Tar & sf.Name
    If Not FSO.FolderExists(NewF) Then
      FSO.CreateFolder(NewF)
    End If
    FolderProcess sf, NewF & "\"
  Next
  For Each f in Fold.Files
   If Right(FSO.GetFile(f).Name,4)<>".dat" Then
    
	    FSO.CreateTextFile(Tar & FSO.GetFile(f).Name)
  End If

  Next
End Function

[Flasher]

Мне нужно чтобы именно TC копировал

У него нет такого функционала.

[pcherevin]

Мне нужно чтобы именно TC копировал

У него нет такого функционала.

Спасибо!

А команду cm_CopyOtherpanel из VBS не вызвать без бубна?

[Flasher]

pcherevin
Неважно чем вызывать. Речь о создании нулевых файлов.

[Avada]

pcherevin
Не нарушайте правила. Оверквотинг на форуме запрещён. Кнопка "цитата" для тех, кто умеет ей пользоваться. Хорошо заметно, что вы — не умеете.

[pcherevin]

Я наверное плохо объяснил.

Привязал я скрипт к кнопке на панели инструментов. Нажимаю на кнопку, выполняется скрипт "Копирование "пустой" структуры каталогов с файлами". Создаётся структура с пустыми файлами. И последней командой скрипт исполняет cm_CopyOtherpanel, в TC открывается диалоговое окно копирования файлов.
Можно так сделать?

[Avada]

pcherevin
Не знаю, как автор скрипта, а я смысл этого дополнения не понимаю. Если потом вам нужен будет диалог копирования, неужели так сложно открыть его вручную? Сцеплять такие вещи в автоматическом режиме — это довольно странный каприз.

[Flasher]

Не знаю, как автор скрипта

И автор скрипта вряд ли бы понял.

pcherevin
Логика появления этого диалога в чём?