menghapus file dengan nama tertentu

[Satria]

tujuannya ingin mencari file di drive D: dengan kriteria nama file tertentu. misalnya *cinta*

saya membuat modul di vb6 :

Code Select Expand



Public Declare Function SearchTreeForFile Lib "imagehlp.dll" (ByVal _
IpRoothPath As String, ByVal IpInputName As String, ByVal IpHasilName _
As String) As Long

Public Function SysFileFind(ByVal WhichRootPath As String, ByVal _
WhichFileName As String) As String
Dim iNull As Integer
Dim IResult As Long
Dim sBuffer As String

On Error GoTo L_FILEFINDERROR
sBuffer = String$(1024, 0)
IResult = SearchTreeForFile(WhichRootPath, WhichFileName, sBuffer)
If IResult Then
iNull = InStr(sBuffer, vbNullChar)
If Not iNull Then
sBuffer = Left$(sBuffer, iNull - 1)
End If
SysFileFind = sBuffer
Else
SysFileFind = ""
End If
Exit Function
L_FILEFINDERROR:
MsgBox "ERROR PADA KODE", vbInformation, "SYSFILEFIND:VIOLATION"
syfilefind = Format(Err.Number) & "-" & Err.Description
End Function

lalu saya bikin script untuk tombol command button

Code Select Expand

Private Sub Command1_Click()
Dim Carifile, Caridi, Namafile As String
Caridi = Text1.Text
Namafile = Text2.Text
Carifile = SysFileFind(Caridi, Namafile)
If Len(Carifile) > 0 Then
MsgBox "File " & Namafile & " ditemukan di " & Carifile, vbInformation, _
"Hasil Pencarian"
Else
MsgBox "File " & Namafile & " tidak ditemukan di semua folder yang ada di " & Caridi, vbCritical, _
"Hasil Pencarian"
End If
End Sub

tapi ternyata hasilnya tidak sesuai yang diharapkan. file yang ditemukan hanya satu persatu. misalnya file Plato.doc. itupun menulisnya harus lengkap dengan ekstensinya. tidak semua file yang mengandung kata "plato" bisa ditampilkan.

pertanyaan, gimana caranya agar semua file yang mengandung kriteria tertentu bisa ditampilkan semua dan tanpa harus membubuhkan ektensinya ?

[Satria]

jadi, gimana nih? ada yang mau share enggak?