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

Rozšířené hledání ›

Nejnovější témata ve fóru

16:45, HTML / XHTML Anti-kukíkový zákon

16:26, Assembler šachový program

22:06, Startupy Megastroj.cz – Vše na jednom místě: půjčovna, bazar a inze…

21:17, Inzerce FPGA vývojová deska XILINX VIRTEX 5 ML507

20:59, OS - GNU / Linux Ubuntu a OpenSuse

21:47, Offtopic Digitalizace v Česku

Stavba Laser Arény
Laser Game Brno

Fórum › Visual Basic

Vyhledání soubor s velikost < 100B (File not found ):

CZechB0Y

~ Anonymní uživatel
~ 2 příspěvky

1. 6. 2009 #1

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 ?

Nahlásit jako SPAM

IP: 82.113.53.–

jkonopasek 0

Návštěvník

4. 6. 2009 #2

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.

Nahlásit jako SPAM

IP: 88.103.130.–

Anonymní uživatel

~ Anonymní uživatel
~ 0 příspěvků

19. 6. 2009 #3

To CZechB0Y :

Nahlásit jako SPAM

IP: 80.188.40.–

← Zpět na seznam vláken ← Zpět do Fóra