Mappen en inhoud wissen met een button. (VB6)

Status
Niet open voor verdere reacties.
S

satriano17

Gebruiker
Lid geworden
30 sep 2012
Berichten
331
Ik heb een dubbel probleem.

Mijn bedoeling is, met een button 1 een map te wissen (in het programma dir)
1 voorbeeld

Code: 
Kill App.Path & "\Mp3\*.*"
Maar hier wordt enkel de inhoud van MP3 gewist. Bijna goed. Ik wou echter ook de map naam wissen.

2de voorbeeld
Als k nu een map (Cards) heb met een paar submappen (Test en Test2) wordt allemaal niks gewist.
bv
Code: 
Kill App.Path & "\Cards\*.*"
Wat doe ik verkeerd?

Dus: Hoe kan ik een map wissen (mapnaam en inhoud)
en hoe kan ik een map en submappen wissen? Mappennmen en Inhoud?
dank u
 
Laatst bewerkt:
Daar is de Kill opdracht ook niet voor.
Kijk naar de DOS commands DEL en RMDIR.
Die kan je gebruiken in een Shell opdracht.

Of gebruik het Filesystem object.
 
Laatst bewerkt:
Opgelost ! na kijken op de link en beetje aanpassen
om een Folder en inhoud te wissen

Code: 
Private Sub Command1_Click()
On Error Resume Next
 Kill App.Path & "\MP3\*.*"    ' delete all files in the folder
    RmDir (App.Path & "\Mp3") ' delete folder
End Sub

en om een Folder + Subfolders + Inhoud te wissen heb ik zo aangepast
Code: 
Private Sub Command2_Click()
 Dim FSO As Object
    Dim MyPath As String

    Set FSO = CreateObject("scripting.filesystemobject")

    MyPath = App.Path & "\CardsRae"  '<< Change

    If Right(MyPath, 1) = "\" Then
        MyPath = Left(MyPath, Len(MyPath) - 1)
    End If

    If FSO.FolderExists(MyPath) = False Then
        MsgBox MyPath & " doesn't exist"
        Exit Sub
    End If

    On Error Resume Next
    'Delete files
    FSO.deletefile MyPath & "\*.*", True
    'Delete subfolders
    FSO.deletefolder MyPath & "\*.*", True
    On Error GoTo 0
   RmDir (App.Path & "\CardsRae") ' delete folder
End Sub
Nogmaals bedankt alphamax EN EDmoor
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan