Wanderstep
Lotus Team
Есть код:
Функция должна была создавать папку в файловой системе, если она отсутствует, или ничего не делать, если такая папка уже есть.
Видимо, допущена ошибка, т.к. папки он создает, а вот проверку на наличие ведет некорректно:
в случае, если папка уже есть, скрипт почему-то доходит до строчки Mkdir path & FolderName & "\" и вываливает ошибку: "Path/file access error".
Где ошибка? Хелп
Код:
Function IsDirID(FolderName As String, path As String) As Variant
IsDirID=False
If FolderName<>"" Then
If Mid(path,Len(path))="/" Then
Mid$(path,Len(path))="\"
End If
FolderList$=Dir$(Path,ATTR_DIRECTORY)
While(FolderList$<>"")
If FolderList$=FolderName Then
IsDirID=True
Exit Function
End If
FolderList$=Dir$()
Wend
If Not IsDirId Then
Mkdir path & FolderName & "\"
IsDirID=True
End If
End If
End Function
Видимо, допущена ошибка, т.к. папки он создает, а вот проверку на наличие ведет некорректно:
в случае, если папка уже есть, скрипт почему-то доходит до строчки Mkdir path & FolderName & "\" и вываливает ошибку: "Path/file access error".
Где ошибка? Хелп