Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Dir и имена / 7 сообщений из 7, страница 1 из 1
07.04.2010, 02:05
    #36564710
AlexFr
AlexFr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dir и имена
Хочется найти 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, 09:17
    #36564868
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dir и имена
AlexFr,

вы неверно поняли смысл второго параметра функции dir
уберите и все будет хорошо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2010, 09:24
    #36564881
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dir и имена
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:34
    #36564897
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dir и имена
Shocker.Proвы неверно поняли смысл второго параметра функции dir
уберите и все будет хорошо

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

Тогда либо дополнительная проверка, либо FSO, наверное
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2010, 09:38
    #36564903
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dir и имена
Что интересно
Код: plaintext
c:\>dir *1*
(т.е. из командной строки) дает тот же дурацкий эффект
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2010, 09:46
    #36564911
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dir и имена
Код: 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, 10:51
    #36565084
AlexFr
AlexFr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dir и имена
Да, так и знал... Спасибо, теперь вижу, я не один "так и знал". Уже легче :)
Hugo121, совершенно прав, т. к. может быть и Progra~2, Progra~N
А то у меня все коротко по именам, человеку отдал файл, а он говорит, что ересь какая-то...
Я запускаю прогу, а там при параметре *1* высвечивается "Не понял". Это он так папку назвал.
Как всегда, говорит, не больше 8 знаков :D
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Dir и имена / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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