| Вопрос: как узнать количество файлов в папке и их названия | Добавлено: 19.12.07 12:03 |
Автор вопроса:  KreAtoR
|
| Ответы | Всего ответов: 17 |
|
Номер ответа: 16 Автор ответа:  Mr.Smile ICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #16 | Добавлено: 24.12.07 17:20 |
|
Option Explicit
Эт если венда на C:\ Private Sub Form_Load() Dim intFF As Integer Dim strFileName As String Dim strText() As String Dim strInput As String strFileName = "C:\boot.ini" intFF = FreeFile Open strFileName For Input As #intFF strInput = Input(LOF(intFF), #intFF) Close #intFF strText() = Split(strInput, vbCrLf) Print strText(2) End Sub 
|
||
|
Номер ответа: 17 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #17 | Добавлено: 07.01.08 10:49 |
| Arcady_XQST если не сложно, дай сразу примерчик, как в ини записать, чтобы потом правильно Split сделать | ||