ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Dir и имена
7 сообщений из 7, страница 1 из 1
Dir и имена
    #36564710
AlexFr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexFr
Гость
Хочется найти C:\*1*

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub TextBox1_Change()
ListBox1.Clear
DirFileName = Dir(TextBox1, vbDirectory)
Do While DirFileName <> ""
 ListBox1.AddItem DirFileName
 'отловим на фактическое наличие "1" и выделим неверные
 If InStr(DirFileName, "1") =  0  Then ListBox1.Selected(ListBox1.ListCount -  1 ) = True
 DirFileName = Dir
Loop
End Sub

Наверно это (хоть и не нужно было бы):
Docume~1
Photos~1
Progra~1

Все это не смертельно, но... ваще такой темы не нашел... И что делать здесь? :))
...
Рейтинг: 0 / 0
07.04.2010, 02:05
| Ответить | Цитировать | Написать  
Dir и имена
    #36564868
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
AlexFr,

вы неверно поняли смысл второго параметра функции dir
уберите и все будет хорошо
...
Рейтинг: 0 / 0
07.04.2010, 09:17
| Ответить | Цитировать | Написать  
Dir и имена
    #36564881
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
AlexFr,
так неверные не заносит, сам навёл на путь:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub TextBox1_Change()
ListBox1.Clear
DirFileName = Dir(TextBox1, vbDirectory)
Do While DirFileName <> ""
 If InStr(DirFileName, "1") <>  0  Then ListBox1.AddItem DirFileName
 DirFileName = Dir
Loop
End Sub
хотя это конечно не выход.
...
Рейтинг: 0 / 0
07.04.2010, 09:24
| Ответить | Цитировать | Написать  
Dir и имена
    #36564897
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Shocker.Proвы неверно поняли смысл второго параметра функции dir
уберите и все будет хорошо

Хотя нет, не прав я.

Тогда либо дополнительная проверка, либо FSO, наверное
...
Рейтинг: 0 / 0
07.04.2010, 09:34
| Ответить | Цитировать | Написать  
Dir и имена
    #36564903
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Что интересно
Код: plaintext
c:\>dir *1*
(т.е. из командной строки) дает тот же дурацкий эффект
...
Рейтинг: 0 / 0
07.04.2010, 09:38
| Ответить | Цитировать | Написать  
Dir и имена
    #36564911
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub TextBox1_Change()
ListBox1.Clear
DirFileName = Dir(TextBox1, vbDirectory)
tmp = Split(TextBox1, "\")
Do While DirFileName <> ""
 If InStr(DirFileName, Replace(tmp(UBound(tmp)), "*", "")) <>  0  Then ListBox1.AddItem DirFileName
 DirFileName = Dir
Loop
End Sub
...
Рейтинг: 0 / 0
07.04.2010, 09:46
| Ответить | Цитировать | Написать  
Dir и имена
    #36565084
AlexFr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexFr
Гость
Да, так и знал... Спасибо, теперь вижу, я не один "так и знал". Уже легче :)
Hugo121, совершенно прав, т. к. может быть и Progra~2, Progra~N
А то у меня все коротко по именам, человеку отдал файл, а он говорит, что ересь какая-то...
Я запускаю прогу, а там при параметре *1* высвечивается "Не понял". Это он так папку назвал.
Как всегда, говорит, не больше 8 знаков :D
...
Рейтинг: 0 / 0
07.04.2010, 10:51
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Dir и имена
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]