hola a todos hestoy haciendo un pequño programam que crear un archivo xtxt que contiene la ruta de todos mis archivos del disco dure en este caso son *.doc
pero cuando coloco todos los archivos *.txt
me aparecen todos los que estan dentro de la carpeta de widnwso...les muestro la fuancion...
Código PHP:
Private Sub Form_Load()
Timer1.Interval = 20000
Dim Results As String, ff As Long, FindFile As String
FindFile = "*.doc, *.xls, *.docx"
ChDrive "c"
ChDir "c:\"
Command1.Enabled = False
Command1.Caption = "Searching..."
ShellAndWait "cmd /c dir /s /b /d /x " & FindFile & " > c:dir.txt", vbHide
Command1.Caption = "Search"
Command1.Enabled = True
ff = FreeFile
Open "c:dir.txt" For Binary As #ff
Results = String(LOF(ff), Chr(0))
Get #ff, , Results
Close #ff
'MsgBox Results
End Sub
como podria eliminar las lineas que contengan la siguiente ruta , o que se discriminen la busqueda en esa carpeta