Простой вопрос по работе с файлами и папками

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
vovchikxxx
Обычный пользователь
Обычный пользователь
 
Сообщения: 50
Зарегистрирован: 22.01.2003 (Ср) 19:32
Откуда: Сергиев Посад

Простой вопрос по работе с файлами и папками

Сообщение vovchikxxx » 15.04.2003 (Вт) 16:18

Как проверить является ли путь к папке корневым(текст) (root)
И как проверить является ли текст(путь к файлу) правильным (is file что ли?)

:?:

RayShade
Scarmarked
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
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
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-бот, Yandex-бот и гости: 43

    TopList  
cron