Коприрование каталога с подкаталогами без использования FileSystemObject ...А?

Когда связываешся с FSO - сразу нужно добавлять в дистрибутив scrrun.dll, а не хочется
Знает кто-нибудь есть что-то на тему копирования каталогов с подкаталогами в API?
Или ещё как ?
Вадим

0

Доработай мою функцию поиска файлов:

Sub RecurseTree(CurrentPath As String)
Dim intN As Integer, intDirectory As Integer
Dim strFileName As String, strDirectoryList() As String
'First list all normal files in this directory
strFileName = Dir(CurrentPath)
Do While strFileName <> ''
Print #1, CurrentPath & strFileName
strFileName = Dir
Loop
'Next build temporary list of subdirectories
strFileName = LCase(Dir(CurrentPath, vbDirectory))
Do While strFileName <> ''
'Ignore current directory, parent directory, and
'Windows NT page file
If strFileName <> '.' And strFileName <> '..' And _
strFileName <> 'pagefile.sys' Then
'Ignore nondirectories
If GetAttr(CurrentPath & strFileName) _
And vbDirectory Then
intDirectory = intDirectory + 1
ReDim Preserve strDirectoryList(intDirectory)
strDirectoryList(intDirectory) = CurrentPath _
& strFileName
End If
End If
strFileName = Dir
'Process other events
DoEvents
Loop
'Recursively process each directory
For intN = 1 To intDirectory
RecurseTree strDirectoryList(intN) & ' '
Next intN
End Sub