Controleren of subfolders bestaan

[test1000]

Hoi,

Voordat ik een folder wil verwijderen wil ik eerst controleren of er bestanden of subfolders bestaan in de 'te verwijderen' folder.
De naam van de bestanden of van de subfolders zijn op dat moment niet gekend.

Om te controleren of er bestanden in staan dat commando heb ik gevonden.
Maar je kan ook een folder met enkel een subfolder en dan werkt deze code niet.

De waarde van "GetFileCount' = 1 als er bestanden in staan.
Maar met enkel subfolders krijg je waarde 0 en dat is niet correct.

Thx voor jullie hulp.

Dim FolderPath As String
FolderPath = "C:\test"
    
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(FolderPath) Then
  GetFileCount = fso.GetFolder(FolderPath).Files.Count
Else
  GetFileCount = -1
End If

 

[test1000]

Hoi Edmoor,

Op deze manier kan het natuurlijk ook.
Als er bestanden of subfolders zijn kan je de 'hoofd'folder niet verwijderen.

Ik wil geen foutmelding dus die laat ik links liggen en doe 'exit sub' via errorhandler

Ik ben verder geholpen.

Thx voor uw supersnel antwoord.

 

[edmoor]

Oeps.
Dit stond er:

Als het verwijderen niet lukt staat er dus nog iets in die folder.
Doe het eens zo:

Dim fldr As String
    
fldr = "C:\Test"
On Error Resume Next
RmDir fldr
If Err.Number <> 0 Then MsgBox Err.Description [COLOR="#008000"]'Verwijderen niet gelukt[/COLOR]
On Error GoTo 0

En je krijgt ook geen foutmelding als je die MsgBox weg laat.