Code: Alles auswählen
If FileSize("Delete-Folder.ini") > 0
If ReadFile(0, "Delete-Folder.ini")
Path$ = Trim(ReadString(0))
CloseFile(0)
Result = MessageRequester("Delete this folder?", Path$, #PB_MessageRequester_YesNo)
If Result = #PB_MessageRequester_Yes
;DeleteDirectory(Path$, "", #PB_FileSystem_Recursive)
MessageRequester("Information", Path$ + #LF$ + #LF$ + "Folder deleted!", #PB_MessageRequester_Ok)
Else
Result = MessageRequester("Delete other folder?", "", #PB_MessageRequester_YesNo)
If Result = #PB_MessageRequester_Yes
Path$ = PathRequester("Locate folder to delete:", "")
If Path$
If CreateFile(0, "Delete-Folder.ini")
WriteString(0, Path$)
CloseFile(0)
Else
MessageRequester("Error:", "Can't write the file", 0)
EndIf
Result = MessageRequester("Delete this folder?", Path$, #PB_MessageRequester_YesNo)
If Result = #PB_MessageRequester_Yes
;DeleteDirectory(Path$, "", #PB_FileSystem_Recursive)
MessageRequester("Information", Path$ + #LF$ + #LF$ + "Folder deleted!", #PB_MessageRequester_Ok)
EndIf
EndIf
EndIf
EndIf
EndIf
Else
Path$ = PathRequester("Locate folder to delete:", "")
If Path$
If CreateFile(0, "Delete-Folder.ini")
WriteString(0, Path$)
CloseFile(0)
Else
MessageRequester("Error:", "Can't write the file", 0)
EndIf
Result = MessageRequester("Delete this folder?", Path$, #PB_MessageRequester_YesNo)
If Result = #PB_MessageRequester_Yes
;DeleteDirectory(Path$, "", #PB_FileSystem_Recursive)
MessageRequester("Information", Path$ + #LF$ + #LF$ + "Folder deleted!", #PB_MessageRequester_Ok)
EndIf
EndIf
EndIf
End