Emzari » 15.04.2003 (Вт) 21:47
Projekt -> Refferences
Подклюяаеш к проекту Microsoft scripting Runtaim
а потом
Dim NewFSO As New FileSystemObject
Dim strFPath As String 'Здесь будеш хранить путь к фаилу или папке
Dim Folder As Folder
If NewFSO.FileExists(strFPath) = True Then
фаил сушествует
Ebd If
а для проверки является ли папка корневыим
Set Folder=NewFSO.GetFolder(strFPath)
If Folder.IsRootFolder = True Then
Папка корневая
End If