Тема: CMD/BAT: Скопировать файлы из архивов ARJ
Подскажите, как можно скриптом vbs скопировать файлы из архивов arj.
Попробовал как с ZIP-архивами - не работает.:(
InitialFolder = "M:\Kirill\B\" ' каталог, откуда копируем
TargetFolder = "C:\n\IZM\" ' каталог, куда копируем
'====================================================================
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShellApp = CreateObject("Shell.Application")
CopyFiles InitialFolder
' процедура рекурсивно перебирает файлы в каталоге
Sub CopyFiles(FolderPath)
Set objFolderItems = objShellApp.NameSpace(FolderPath).Items()
For Each objFolderItem In objFolderItems
If objFolderItem.IsFolder And LCase(Right(objFolderItem.Name, 4)) = ".arj" Then
Set objFile = objFSO.GetFile(objFolderItem.Path)
CopyFile objFolderItem.Path
End If
Next
End Sub
' процедура копирует файл
Sub CopyFile(FilePath)
SubPath = Mid(FilePath, Len(InitialFolder) + 1)
TargetPath = TargetFolder & SubPath
objFSO.CopyFile FilePath, TargetPath, True
End Sub