VB6 - Smazání souborů<100B Vyřešeno

[CZechBoY]

Zdravim,
neví někdo jak pomocí VB6 smazat třeba 30 souborů, který mají velikost menší než 100Bajtů ??
Asi takhle: Zadám nějakou složku a a najdou se všechny soubory, vybere to ty, které jsou menší než těch 100B a třeba je to vypíše a po potvrzení smaže. Nevíte jak na to ?

[Reklama]

[CZechBoY]

Tak jsem na to konečně přišel a docela to jede, pro zajímavost to sem hodim...

Private Sub cmdVycistit_Click()
On Error GoTo chyba

cesta = File1.Path & "\"
Clipboard.SetText cesta
soubor = Dir("sem napište cestu\*.ini")
Do While soubor <> ""
If FileLen(cesta & soubor) < 100 Then
Kill (File1.Path & "\" & soubor)
End If
soubor = Dir
Loop
Exit Sub

chyba:
ms = MsgBox(Error, vbCritical, "Chyba")
MsgBox soubor & vbNewLine & cesta
End Sub