Vyhledání soubor s velikost < 100B (File not found ): – Visual Basic – Fórum – Programujte.com

Private Sub cmdVycistit_Click()
On Error GoTo chyba

cesta = Dir1.Path & "\"
soubor = Dir(cesta, vbSystem + vbHidden + vbReadOnly)
Do While soubor <> ""
Cls
velikost = FileLen(soubor)
Print soubor
soubor = Dir
Print velikost & " Bajtů"
If FileLen(soubor) < 100 Then
Kill (soubor)
End If
Loop
Exit Sub

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

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Nevíte co s tim ?

Nepoužívám Dir, ale pokud příkaz Dir(cesta, vbSystem + vbHidden + vbReadOnly) vyhledá soubory se zadanými atributy, tak v tom by to mohlo být. Příkaz Kill nezruší soubor s atributem ReadOnly.

To CZechB0Y :