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 ?
VB6 - Smazání souborů<100B
Moderátor: Mods_senior
- CZechBoY
- Master Level 9.5

- Příspěvky: 8813
- Registrován: 20 srp 2008 14:02
- Bydliště: Brno
- Kontaktovat uživatele:
VB6 - Smazání souborů<100B
PHP, Nette, MySQL, C#, TypeScript, Python
IntelliJ Idea, Docker, Opera browser, Linux Mint
iPhone XS
Raspberry PI 3 (KODI, Raspbian)
XBox One S, PS 4, nVidia GeForce NOW
IntelliJ Idea, Docker, Opera browser, Linux Mint
iPhone XS
Raspberry PI 3 (KODI, Raspbian)
XBox One S, PS 4, nVidia GeForce NOW
- CZechBoY
- Master Level 9.5

- Příspěvky: 8813
- Registrován: 20 srp 2008 14:02
- Bydliště: Brno
- Kontaktovat uživatele:
Re: VB6 - Smazání souborů<100B
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
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
PHP, Nette, MySQL, C#, TypeScript, Python
IntelliJ Idea, Docker, Opera browser, Linux Mint
iPhone XS
Raspberry PI 3 (KODI, Raspbian)
XBox One S, PS 4, nVidia GeForce NOW
IntelliJ Idea, Docker, Opera browser, Linux Mint
iPhone XS
Raspberry PI 3 (KODI, Raspbian)
XBox One S, PS 4, nVidia GeForce NOW
-
- Podobná témata
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 9 Odpovědi
- 4628 Zobrazení
-
Poslední příspěvek od atari
-
- 10 Odpovědi
- 7058 Zobrazení
-
Poslední příspěvek od Riviera kid
-
- 5 Odpovědi
- 5910 Zobrazení
-
Poslední příspěvek od L.L
