Работа с каталогами и файлами

[medin84]

так в помощь, для создания дир-й

Function PathMaker(strpath$) As String
On Error Goto erh

'	Функция создает директории в файловой системе из указанной строки
'-----------------------------------------------------------------------------------------------------------
'--- для создания директории c:\temp\file_path\path			метка диска будет та где установлен lotus notes
'--- нужно выполнить PathMaker("\temp\file_path\path")

Dim pathparticle
Dim mpath$, tempDrive$
Dim lb%, ub%, p_i%

tempDrive$ = Curdrive$()
strpath$ = tempDrive$ & strpath$
pathparticle = Split(strpath$, "\")
lb%=Lbound(pathparticle)
ub%=Ubound(pathparticle)

If ub%>0 Then
For p_i%=lb% To ub%
mpath$ = mpath$ & pathparticle(p_i%)
If Dir( mpath$, 16 )="" Then Mkdir(mpath$)
mpath$ = mpath$ & "\"
Next
Print "Succes create dir: " & mpath$
PathMaker = mpath$
End If

If Len(PathMaker)=0 Then
Print "Не удалось создать директорию: " & strpath$
Msgbox "Не удалось создать директорию: " & strpath$
End If
Exit Function
erh:
PathMaker=""
Print "Не удалось создать директорию: " & strpath$
Msgbox "Не удалось создать директорию: " & strpath$
Exit Function
End Function