Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 03.05.2007
Сообщений: 25
1

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

13.09.2007, 12:24. Показов 592. Ответов 1
Метки нет (Все метки)

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

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.09.2007, 12:24
Ответы с готовыми решениями:

Копирование каталога с подкаталогами
При копировании: Я создаю каталог с таким же именем и копирую туда его...

Как получить размер каталога с подкаталогами?
Задача стоит следующая - сбор статистики по профилям учетных записей на рабочих станциях (Использую...

Копирование каталога со всеми вложенными подкаталогами и файлами
Нужно скопировать каталог со всеми вложенными подкаталогами(кроме пустых) и файлами в другой...

Вывести на экран содержимое каталога со всеми его подкаталогами
Есть папка с музыкой (music). В ней еще одна папка, тоже с музыкой. Задача программы прочитать все,...

1
AMeN
14.09.2007, 10:37 2
Доработай мою функцию поиска файлов:

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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.09.2007, 10:37

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Резервное копирование каталога со всеми вложенными подкаталогами, кроме пустых, и файлами, кроме временных
Здравствуйте, все! Спасибо за помощь в предыдущих темах, но командная строка меня почти победила....

FileSystemObject could not be loaded при добавлении FileSystemObject в компоненты
Привет. Хочу добавить FileSystemObject в компоненты. Выбираю файл scrrun.dll, нажимаю 'Apply',...

Получение хэндла каталога для использования его в функции GetFileTime
Добрый вечер, всем! возникли проблемы с получение хэндела каталога для использования его в функции...

Коприрование циклом
Private Sub Copy_File() Dim sFileName, sNewFileName$, ext$ Dim lr&amp; Dim sp Dim i...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.