Ordner löschen ?

Computer: Software & Programmierung Visual Basic
#1

Hallo,
habe das problem, dass manchmal der ordner nicht gelöscht wird, aber die inhalte schon

beabsichtigt wäre den ordner incl. inhalt zu löschen … hat da jemand ne idee, was da falsch ist???
*
Private Declare Function MakePath Lib „imagehlp.dll“ _
Alias „MakeSureDirectoryPathExists“ _
(ByVal lpPath As String) As Long
Command1:

Unload Me
’ Ordner löschen
Dim FSO As New FileSystemObject
Dim Folder As Folder
Dim sFolderPath As String
Dim sDestPath As String
’ Welcher Ordner soll gelöscht werden?
sFolderPath = „C:\Meine_Sicherungsdateien“
’ Löschvorgang starten
Set Folder = FSO.GetFolder(sFolderPath)
’ alles löschen
Folder.Delete True
MsgBox „Speicherordner gelöscht!“, vbInformation
Shell „Sicherungsprogramm.exe“, vbNormalFocus

#2

… oder wie kann ich prüfen ob der ordner vorhand
… oder wie kann ich prüfen ob der ordner vorhand ist
(der ist jetzt allerdings leer) …?

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Hi Udo,

… oder wie kann ich prüfen ob der ordner vorhand ist
(der ist jetzt allerdings leer) …?

Bist Du sicher? Ist der wirklich leer?

Beim Suchen wird eventuell das helfen:

Option Explicit

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long


Private Sub Form\_Load()
 Form1.Show
 Me.Print "Gibts den Ordner WinNT? " + CStr(CBool(PathFileExists("c:\winnt\")))
End Sub

(aus API-Guide, geringfügig verändert, dafür aber getestet. :wink:)

Gruß, rainer

#4

hallo,

Hi Udo,

… oder wie kann ich prüfen ob der ordner vorhand ist
(der ist jetzt allerdings leer) …?

Bist Du sicher? Ist der wirklich leer?

ja - der ordner ist leer, und wird manchmal nicht gelöscht …!

Beim Suchen wird eventuell das helfen:

Option Explicit

Private Declare Function PathFileExists Lib „shlwapi.dll“
Alias „PathFileExistsA“ (ByVal pszPath As String) As Long

Private Sub Form_Load()
Form1.Show
Me.Print "Gibts den Ordner WinNT? " +
CStr(CBool(PathFileExists(„c:\winnt“)))
End Sub

(aus API-Guide, geringfügig verändert, dafür aber getestet.
:wink:)

Gruß, rainer

werde mal sehen, ob das geht …

Danke
und liebe grüße