open "e:\1.txt" for input as #1

[Ramzes]

Надо открыть файл для чтения, потом посмотреть есть ли внем строки которые начинаються на С:\ , d:\ , E:\и если есть то добавить ети строки в List1

[Sirik]

Можно через FSO:

Код: Выделить всё

    Dim Fso, FileManager
    Dim str_Temp as String


    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set FileManager = Fso.OpenTextFile("Твой путь")
   
    Do While FileManager.atendofstream <> True
        str_Temp = FileManager.readline
   if Instr(str_Temp,":\")=2 then
      list1.additem str_Temp
   end if
    Loop



[ZlydenGL]

В чем проблема?

Код: Выделить всё

Dim St As String
While Not EOF(1)
Line Input #1, St
If Mid(St,2,2)=":\" And Not IsNumeric(Left(St,1)) Then
  List1.AddItem St
End If
WEnd

Условия при необходимости можно и жестче наложить

[Tarik]

Код: Выделить всё

dim strTemp as string
dim strComp as string
open [file] for input as #1
do while not eof(1)
     line input #1, strtemp
     strcomp=lcase(left$(strtemp,3))
     if strcomp="c:\" or strcomp="d:\" or strcomp="e:\" then list1.additem(strtemp)
loop
close #1


[Tarik]

Блин, пока ответ писал, уже два варианта предложили

[Ramzes]

2 ZlydenGL спасибо!

[Sirik]

Блин, пока ответ писал, уже два варианта предложили

М-да, вопрос просто не сложный попался