|
Примерно так
Только это старый вариант, если найду свежее - выложу
$PBExportHeader$of_recurse_dir_list.srf
global type of_recurse_dir_list from function_object
end type
forward prototypes
global function long of_recurse_dir_list (string as_path, long al_parent, string as_target, boolean ab_del)
end prototypes
global function long of_recurse_dir_list (string as_path, long al_parent, string as_target, boolean ab_del);// Рекурсивная процедура
// Сканирует все поддиректории в директории
//environment ge_Environment
//GetEnvironment(ge_Environment )
//
Integer li_NumDirectories, li_Index , li_Pos1 ,li_Pos2, li_Pos, li_Len, li_Items,ll_ind
Long ll_New
String ls_FileName, ls_DirName, ls_SubDirectory[], ls_Delimeter, ls_AllFiles,ls[]
string ls_del
// Если захотим остановить через какую-нибудь кнопку раскоментим
//Do While Yield()
//Loop
ls_SubDirectory[]=ls[]
// Проверка на останов
//If ib_cancel Then Return 0
//// проверим разделитель
//Choose Case ge_Environment.OSType
// Case Sol2!, HPUX!, AIX!
// ls_Delimeter = "/"
// ls_AllFiles = "*"
// Case Else
ls_Delimeter = "\"
ls_AllFiles = "*.*"
//End Choose
If Right(as_Path, 1) <> ls_Delimeter Then
as_Path = as_Path + ls_Delimeter
End if
If Right(as_target, 1) <> ls_Delimeter Then
as_target = as_target + ls_Delimeter
End if
// Get a listing of sub directories from the directory passed
lb_file.Reset()
lb_file.DirList(as_Path + ls_AllFiles, 55)
// Show the current directory working on
//sle_dir.text = as_Path
// Get just the last directory name ie skip the path
li_Pos = 1
li_Len = Len(as_Path) - 1
For li_Pos = li_Len to 1 Step -1
If Mid(as_Path, li_Pos, 1) = ls_Delimeter Then Exit
Next
// Insert name, level. open is to allow collapsing of the structure
ls_FileName = Mid(as_Path, li_Pos + 1, (Len(as_Path) - (li_Pos + 1)))
If ls_FileName = "" Then
ls_FileName = as_Path
End if
// Insert the current directory working on into the datawindow.
//ll_New = of_add_item(as_Path, ls_FileName, al_Parent)
string ls_DirName_target
// Keep a local copy of the lb directories only
li_Items = lb_file.TotalItems()
li_NumDirectories = 0
Do While li_Index <= li_Items
If left(lb_file.Text(li_Index), 1) = "[" and lb_file.Text(li_Index)<>"[..]" and lb_file.Text(li_Index)<>"[.]" Then
li_NumDirectories++
ll_ind = UpperBound(ls_SubDirectory)+1
ls_SubDirectory[ll_ind] = lb_file.Text(li_Index)
If (ls_SubDirectory[ll_ind] <> "[..]") And (ls_SubDirectory[ll_ind] <> "[.]") Then
// Убираем скобки
li_Pos1 = Pos(lb_file.Text(li_Index), "[")
li_Pos2 = Pos(lb_file.Text(li_Index), "]")
ls_DirName = Left(lb_file.Text(li_Index), li_Pos1 - 1) + &
Mid(lb_file.Text(li_Index), li_Pos1 + 1, li_Pos2 - li_Pos1 - 1) + &
Right (lb_file.Text(li_Index), Len(lb_file.Text(li_Index)) - li_Pos2)
// Если не удаление - создаем директории
if not ab_del then CreateDirectory(as_target+ls_DirName)
env.MyListDir[UpperBound(env.MyListDir)+1] = as_path+ls_DirName
end if
else
//Удалим файлы из текущей папки
ls_del = as_path+lb_file.Text(li_Index)
if ab_del then
fileinfolist.setfileattr( ls_del)
FileDelete(ls_del)
else
FileMove(ls_del,as_target+lb_file.Text(li_Index))
end if
End If
li_Index++
Loop
// Вызов следующего уровня директорий
li_Index = 1
Do While li_Index <= li_NumDirectories
If (ls_SubDirectory[li_Index] <> "[..]") And (ls_SubDirectory[li_Index] <> "[.]") Then
ls_DirName = as_Path + ls_SubDirectory[li_Index] + ls_Delimeter
// убираем кавычки
li_Pos1 = Pos(ls_dirname, "[")
li_Pos2 = Pos(ls_dirname, "]")
ls_DirName = Left(ls_DirName, li_Pos1 - 1) + &
Mid(ls_DirName, li_Pos1 + 1, li_Pos2 - li_Pos1 - 1) + &
Right (ls_DirName, Len(ls_DirName) - li_Pos2)
//Если удаление - то пропускаем формирование конечного имени
if not ab_del then
ls_DirName_target = as_target + ls_SubDirectory[li_Index] + ls_Delimeter
// И из конечного пути тоже
li_Pos1 = Pos(ls_DirName_target, "[")
li_Pos2 = Pos(ls_DirName_target, "]")
ls_DirName_target = Left(ls_DirName_target, li_Pos1 - 1) + &
Mid(ls_DirName_target, li_Pos1 + 1, li_Pos2 - li_Pos1 - 1) + &
Right (ls_DirName_target, Len(ls_DirName_target) - li_Pos2)
end if
//Рекурсивный вызов
of_recurse_dir_list(ls_DirName, ll_New,ls_DirName_target,ab_del)
End If
li_Index++
Loop
Return 1
end function
|
