Hallo.
Ich hatte in meinem Programm folgenden Code um leere Ordner zu löschen.
Da ich aber nun alles andere schon von FSO auf API umgschrieben habe bräuchte ich hilfe folgenden code in API zu realisieren,
danke mfg joe
Sub DeleteEmptyFolder(ScanPfad)
Set MyFSO = CreateObject(„Scripting.FileSystemObject“)
Set PathObject = MyFSO.GetFolder(ScanPfad)
Set SubFolders = PathObject.SubFolders
For Each SubFoldersNow In SubFolders
Set FileObject = SubFoldersNow.Files
Set SubSubFolders = SubFoldersNow.SubFolders
fc = FileObject.Count
pc = SubSubFolders.Count
On Error GoTo errordel
If fc = 0 And pc = 0 Then
SubFoldersNow.Delete
Else
DeleteEmptyFolder (SubFoldersNow.ParentFolder + „“ + SubFoldersNow.Name)
End If
Next
Set SubFolders = PathObject.SubFolders
For Each SubFoldersNow In SubFolders
Set FileObject = SubFoldersNow.Files
Set SubSubFolders = SubFoldersNow.SubFolders
fc = FileObject.Count
pc = SubSubFolders.Count
If fc = 0 And pc = 0 Then
SubFoldersNow.Delete
End If
Next
End Sub