WSH.Run "fsutil file createnew """ & Target & FSO.GetFile(Selected).Name & """ 0", 7, True

    FSO.CreateTextFile(Target & FSO.GetFile(Selected).Name)

    WSH.Run "fsutil file createnew """ & Tar & FSO.GetFile(f).Name & """ 0", 7, True

    FSO.CreateTextFile(Tar & FSO.GetFile(f).Name)

Set OTF = FSO.OpenTextFile(WScript.Arguments(0), 1)

Set OTF = FSO.OpenTextFile(WScript.Arguments(0), 1, False, -1)

@echo off
if -%2==- echo Parameters required: %%WF "%%T" & pause & goto :EOF
if -%1==-go goto go
echo Nuller by MVV. Version 2.1
echo.
for /f "usebackq delims=" %%f in (`type %1`) do call %0 go "%%f" %2
pause
goto :EOF

:go
if -%3==- goto :EOF
if -%4==-D goto go_dir
if not -%4==-F if exist %2\* goto go_dir

if exist %3\%2 goto :EOF
set Nuller=%2>"%~3\%~2"
echo %~3\%~2
goto :EOF

:go_dir
if not exist %3\%2 md %3\%2
for /d %%d in (%2\*) do call %0 go %%d %3 D
for %%f in (%2\*) do call %0 go %%f %3 F

Set OTF = FSO.GetFile(WScript.Arguments(0)).OpenAsTextStream(1, -1)

TOTALCMD#BAR#DATA
robocopy
"%P\" "%T\" * /E /CREATE /DCOPY:T /NJH /NJS /NDL /NFL
syncui.dll,11
Создать пустую структуру в пассивной панели из содержимого активной

1

%P %T /T

TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\xxcopy\xxcopy.exe
"%P" "%T" /BI/E/H/KS/Q/R/TC/TR0/Y
Utils\xxcopy\xxcopy.exe,7
Создать пустую структуру в пассивной панели из содержимого активной

1

/XX   Исключить дополнительные файлы и папки
/XC   Исключить измененные файлы

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