Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
vovchikxxx
-
- Обычный пользователь
-
-
- Сообщения: 50
- Зарегистрирован: 22.01.2003 (Ср) 19:32
- Откуда: Сергиев Посад
-
vovchikxxx » 15.04.2003 (Вт) 16:18
Как проверить является ли путь к папке корневым(текст) (root)
И как проверить является ли текст(путь к файлу) правильным (is file что ли?)
-
RayShade
-
- Scarmarked
-
-
- Сообщения: 5511
- Зарегистрирован: 02.12.2002 (Пн) 17:11
- Откуда: Russia, Saint-Petersburg
-
RayShade » 15.04.2003 (Вт) 16:37
На первый - можно проверить длину пути. Если len(path)<=3 то это root.
На второй - if len(dir(path))>0 то файл существует.
-
vovchikxxx
-
- Обычный пользователь
-
-
- Сообщения: 50
- Зарегистрирован: 22.01.2003 (Ср) 19:32
- Откуда: Сергиев Посад
-
vovchikxxx » 15.04.2003 (Вт) 16:46
RayShade писал(а):На второй - if len(dir(path))>0 то файл существует.
Вместе с файлом!?!? есть ли такой файл??
-
RayShade
-
- Scarmarked
-
-
- Сообщения: 5511
- Зарегистрирован: 02.12.2002 (Пн) 17:11
- Откуда: Russia, Saint-Petersburg
-
RayShade » 15.04.2003 (Вт) 16:50
Да вместе с файлом. И есть порверка на то существует ли он.
-
vovchikxxx
-
- Обычный пользователь
-
-
- Сообщения: 50
- Зарегистрирован: 22.01.2003 (Ср) 19:32
- Откуда: Сергиев Посад
-
vovchikxxx » 15.04.2003 (Вт) 17:01
А что тогда в данном случае Path?
-
RayShade
-
- Scarmarked
-
-
- Сообщения: 5511
- Зарегистрирован: 02.12.2002 (Пн) 17:11
- Откуда: Russia, Saint-Petersburg
-
RayShade » 15.04.2003 (Вт) 17:12
path это просто имя строковой переменной.
можешь назвать ее как хочешь
dim str as string
str = "c:\myfile.txt"
if len(dir(str))<>0 then msgbox str & " есть".
так что ли.
-
Emzari
-
- Продвинутый пользователь
-
-
- Сообщения: 129
- Зарегистрирован: 06.09.2002 (Пт) 9:08
- Откуда: Georgia
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
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: Google-бот, SemrushBot и гости: 85