![]() |
![]() |
|
|
|||||||
| Programmierung Rat & Tat für Programmierer |
![]() |
|
|
Themen-Optionen | Ansicht |
|
|
|
|
#1 |
|
Master
![]() |
HI!
Was genau ist dein Problem? Das löschen von dateien ansich? Das könnte in etwa so aussehen: Code:
Public Sub DelAll(ByVal sDirectory As String)
Dim sFile As String
sDirectory = Trim(sDirectory)
If Not Right(sDirectory, 1) = "\" Then sDirectory = sDirectory & "\"
sFile = Dir(sDirectory)
While Not sFile = ""
On Error Resume Next
Kill sDirectory & sFile
On Error GoTo 0
sFile = Dir
Wend
End Sub
lg
____________________________________
__________________ |»»»»»SONIC««««««| ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ |
|
|
|
![]() |
| Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1) | |
|
|