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
… 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]
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. 
)
Gruß, rainer
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.
)
Gruß, rainer
werde mal sehen, ob das geht …
Danke
und liebe grüße