13/09/10 12:41
S.y.n.a.p.s.e.
Salve Ragazzi... Un'altra domandina per voi ...
Allora io ho una form1 con :
Form1
Text1 Dove Scrivo il file da Cercare
ListBox Dove devono essere Elencati i file ...
Command1 Per far Partire la Ricerca del file scritto nella Text1
Adesso con questo codice anche se metto il nome del file mi elenca nella ListBox tutti i file che ci sono nella Cartella ....
Invece io vorrei che ricercasse tutti i file Nominati come scritto nella text1 oppure Vicinanze ....
Del Tipo
CARTELLA:
1PiPPO
2PIPPO
3PIPPO
PIPPO1
PIPPO2
PIPPO3
Form:
Nome file : [PIPPO]
LISTBOX :
PIPPO1
PIPPO2
PIPPO3
In Pratica mi dovra elenzare nella ListBox solamente il file rikiesto e in più quelli che si avvicinano al nome .....
Spero Che sono stato abbastanza chiaro ....
Allora io ho una form1 con :
Form1
Text1 Dove Scrivo il file da Cercare
ListBox Dove devono essere Elencati i file ...
Command1 Per far Partire la Ricerca del file scritto nella Text1
Adesso con questo codice anche se metto il nome del file mi elenca nella ListBox tutti i file che ci sono nella Cartella ....
Private Sub Command1_Click() ListView1.ListItems.Clear iRighe = 0 file = FreeFile Open fileTxt For Output As #file CercaFile dirText.text, fileText.text Close #file End Sub Sub CercaFile(ByVal NomeDir As String, ByVal NomeFile As String) Dim FileFound As String Dim PathNames() As String Dim FileNames() As String Dim k As Integer Dim li As ListItem k = -1 If Right$(NomeDir, 1) <> "\" Then NomeDir = NomeDir & "\" FileFound = Dir$(NomeDir & NomeFile) Do While FileFound <> "" If FileFound <> "." And FileFound <> ".." Then k = k + 1 ReDim Preserve FileNames(k) FileNames(k) = FileFound Print #file, NomeDir + FileFound End If FileFound = Dir$ Loop If k <> -1 Then For k = 0 To UBound(FileNames) iRighe = iRighe + 1 Set li = ListView1.ListItems.Add(, , Format(iRighe, "00000")) ' righe li.SubItems(1) = NomeDir li.SubItems(2) = FileNames(k) Next End If k = -1 FileFound = Dir(NomeDir, vbDirectory) Do While FileFound <> "" If FileFound <> "." And FileFound <> ".." Then If (GetAttr(NomeDir & FileFound) And vbDirectory) = vbDirectory Then k = k + 1 ReDim Preserve PathNames(k) PathNames(k) = FileFound End If End If FileFound = Dir Loop If k = -1 Then Exit Sub For k = 0 To UBound(PathNames) CercaFile NomeDir & PathNames(k), NomeFile Next End Sub Private Sub Form_Load() ListView1.ColumnHeaders.Add , , "Riga", ListView1.Width / 10 * 2, lvwColumnLeft ListView1.ColumnHeaders.Add , , "Cartella", ListView1.Width / 10 * 4, lvwColumnLeft ListView1.ColumnHeaders.Add , , "File", ListView1.Width / 10 * 4, lvwColumnLeft End Sub
Invece io vorrei che ricercasse tutti i file Nominati come scritto nella text1 oppure Vicinanze ....
Del Tipo
CARTELLA:
1PiPPO
2PIPPO
3PIPPO
PIPPO1
PIPPO2
PIPPO3
Form:
Nome file : [PIPPO]
LISTBOX :
PIPPO1
PIPPO2
PIPPO3
In Pratica mi dovra elenzare nella ListBox solamente il file rikiesto e in più quelli che si avvicinano al nome .....
Spero Che sono stato abbastanza chiaro ....
aaa