Конференция VBStreets

**el-niko** » 19.09.2004 (Вс) 16:58

Как мне узнать имя выбранной папки в DirListBox. Имеено только папки, весь путь не нужен...

Зараннее благодарен...

**Ruslan Demidow** » 19.09.2004 (Вс) 17:04

el-niko писал(а):Как мне узнать имя выбранной папки в DirListBox. Имеено только папки, весь путь не нужен...

Зараннее благодарен...

Код: Выделить всё: Private FSO As New FileSystemObject Option Explicit Private Sub Dir1_Change() MsgBox FSO.GetFileName(Dir1.Path), vbOKOnly, "111" End Sub

**el-niko** » 19.09.2004 (Вс) 17:45

Private FSO As New FileSystemObject

эта строчка вызывает ошибку "Сompile error:User-defined type not defined"

Что мне с этим поделать ?

**PATRIOT_kz** » 19.09.2004 (Вс) 18:06

Всё правильно, просто наш спец - 'Ruslan Demidow' забыл одну вещь,
что тебе нужно войти в 'Project->Preference' или 'Проект->Информация'
и там поставить флажок на "Microsoft Scripting Runtime" !

**PATRIOT_kz** » 19.09.2004 (Вс) 18:07

Всё правильно, просто наш спец - 'Ruslan Demidow' забыл одну вещь,
что тебе нужно войти в 'Project->Preference' или 'Проект->Информация'
и там поставить флажок на "Microsoft Scripting Runtime" !

**Ruslan Demidow** » 19.09.2004 (Вс) 19:53

PATRIOT_kz писал(а):Всё правильно, просто наш спец - 'Ruslan Demidow' забыл одну вещь,
что тебе нужно войти в 'Project->Preference' или 'Проект->Информация'
и там поставить флажок на "Microsoft Scripting Runtime" !

К чему ирония? :roll:

Вообще-то, если человек работает с DirListBox, то думаю, у него уже установлена галочка напротив этой библиотеки.

**tyomitch** » 19.09.2004 (Вс) 20:05

PATRIOT_kz писал(а):Всё правильно, просто наш спец - 'Ruslan Demidow' забыл одну вещь,
что тебе нужно войти в 'Project->Preference' или 'Проект->Информация'
и там поставить флажок на "Microsoft Scripting Runtime" !

References, спец ты наш...

**alibek** » 20.09.2004 (Пн) 9:27

Ruslan Demidow, во-первых, необязательно. Во-вторых, Dir1.List(Dir1.ListIndex) - и вверх по списку.

**alibek** » 20.09.2004 (Пн) 9:29

И наконец, можно искать по InStrRev до последнего слэша (\).

**Ruslan Demidow** » 20.09.2004 (Пн) 10:33

alibek писал(а):Ruslan Demidow, во-первых, необязательно.

Может быть. Но я не могу себе представить назначение DirListBox в программе без использования файловых операций.

alibek писал(а):Во-вторых, Dir1.List(Dir1.ListIndex) - и вверх по списку.

Т.е. вместо Dir1.Path ? Чем первый вариант плох?

**alibek** » 20.09.2004 (Пн) 10:55

Тем что для него надо подключать дополнительные библиотеки.

**Ruslan Demidow** » 20.09.2004 (Пн) 11:38

alibek писал(а):Тем что для него надо подключать дополнительные библиотеки.

Ясно.

**Q2W** » 22.09.2004 (Ср) 14:00

а dir1.text не пробовали? Человеку нужно имя выбранной папки!

**alibek** » 22.09.2004 (Ср) 14:01

Dir1.Text равносильно Dir1.List(0)

Конференция VBStreets

Как узнать имя выбранной папки в DirListBox ?

Как узнать имя выбранной папки в DirListBox ?

Re: Как узнать имя выбранной папки в DirListBox ?

Кто сейчас на конференции