Licstbox контрол
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 11
• Страница 1 из 1
- Stable
- Новичок
- Сообщения: 45
- Зарегистрирован: 20.06.2006 (Вт) 7:30
- Откуда: УФА
Licstbox контрол
Stable » 08.02.2007 (Чт) 9:14
Как можно заполнить ListBox чтобы он отображал папку. Допустим папку Windows.
- Kiryusha
- Бывалый
-
- Сообщения: 216
- Зарегистрирован: 30.08.2005 (Вт) 10:56
- Откуда: УР, Ижевск
Kiryusha » 08.02.2007 (Чт) 9:26
Имхо, Dir$, если конечно он папки выводит, а не только файлы...
З.Ы. Тему подправь
З.Ы. Тему подправь
Судебно-медицинское вскрытие показало, что чукча умер в
результате судебно-медицинского вскрытия.
результате судебно-медицинского вскрытия.
- BV
- Thinker
-
- Сообщения: 3987
- Зарегистрирован: 12.09.2004 (Вс) 0:55
- Откуда: Молдавия, г. Кишинёв
BV » 08.02.2007 (Чт) 9:49
http://bbs.vbstreets.ru/viewtopic.php?t=17698
Для папок - замени строку:
На
Для папок - замени строку:
- Код: Выделить всё
strFileList = Dir(strFolder & strPattern, vbNormal)
На
- Код: Выделить всё
strFileList = Dir(strFolder & strPattern, vbNormal Or vbDirectory)
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
- BV
- Thinker
-
- Сообщения: 3987
- Зарегистрирован: 12.09.2004 (Вс) 0:55
- Откуда: Молдавия, г. Кишинёв
BV » 08.02.2007 (Чт) 21:00
- Код: Выделить всё
Dim strFileList As String, strFolder As String, _
strPattern As String
strFolder = Environ("WinDir"): strPattern = "*.*"
If Right$(strFolder, 1) <> "\" Then strFolder = strFolder & "\"
strFileList = Dir(strFolder & strPattern, vbNormal Or vbDirectory)
Do Until strFileList = vbNullString
Select Case strFileList
Case ".", ".." '
Case Else
Debug.Print strFileList
End Select
strFileList = Dir
DoEvents
Loop
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
- Dmitriy2003
- Постоялец
- Сообщения: 690
- Зарегистрирован: 27.05.2003 (Вт) 22:47
- Откуда: Deutschland
Dmitriy2003 » 08.02.2007 (Чт) 22:32
Кудаж еще готовее... 
того и гляди в туалет вместе будем ходить
- Код: Выделить всё
Dim strFileList As String
Dim strFolder As String
Dim strPattern As String
'
strFolder = Environ("WinDir")
strPattern = "*.*"
'
If Right$(strFolder, 1) <> "\" Then strFolder = strFolder & "\"
'
strFileList = Dir$(strFolder & strPattern, vbNormal Or vbHidden Or vbSystem Or vbDirectory)
Do
Select Case strFileList
Case ".", ".." '
'verpist dich
Case Else
Me.List1.AddItem strFileList
End Select
'
strFileList = Dir$
'
DoEvents
'
Loop Until strFileList = vbNullString
того и гляди в туалет вместе будем ходить
Dmitrich
Сообщений: 11
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 13