Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Laufzeitfehler 52
Autor: Der
Datum: 05.08.02 08:34
Hallo habe ein Problem hier mein Code wenn ich bei strPath=""C:Temp" eingebe funktzt es aber so kriege ich den Fehler was mache ich falsch??? Option Explicit Dim strFolderToDelete As String Private Declare Function DelNode Lib "advpack.dll" _ (ByVal pszFileOrDirName As String, ByVal dwFlags As Long) As Long Private Sub Form_Load() Dim strPath As String 'Variable zum speichern vom Verzeichnis 'On Error GoTo Error 'bei Fehler spring zu Error strPath = "Cokumente und Einstellungen\" 'Mokumente und Einstellungen" 'Startverzeichnis strFolderToDelete = "Downloads" 'Ordner der gelöscht werden soll 'Bitte nur Ordnername ohne Pfad eingeben 'Call OrdnerLoeschen(strPath) 'Open App.Path & "log.txt" For Output As #1 'logfile Öffnen bzw. erstellen 'Write #1, Now; "Verzeichnisse erfolgreich geleert!" 'Datum u.Text in logfile schreiben 'Close #1 'logfile schliessen End 'Programm beendet sich "Unload Me" geht auch 'Error: 'Error Sprungmarke 'Open App.Path & "log.txt" For Output As #1 'logfile Öffnen bzw. erstellen 'Write #1, Now; "Fehler beim Suchen nach M:, Laufwerk nicht bereit" 'Text in logfile schreiben 'Close #1 'logfile schliessen 'End End Sub Private Sub OrdnerLoeschen(ByVal strPath As String) Dim strUnterordner() As String 'Variable für Unterordner Dim intAnzahl As Integer, intIndex As Integer 'Variable für Anzahl Unterordner und Index If Right$(strPath, 1) <> "\" Then strPath = strPath & "\" ReDim strUnterordner(0) As String strUnterordner(0) = Dir(strPath, vbDirectory) Do If strUnterordner(intAnzahl) <> "." And strUnterordner(intAnzahl) <> ".." Then If strUnterordner(intAnzahl) = strFolderToDelete Then DelNode strPath & strUnterordner(intAnzahl), 0 Else: intAnzahl = intAnzahl + 1 ReDim Preserve strUnterordner(intAnzahl) As String End If End If strUnterordner(intAnzahl) = Dir Loop Until strUnterordner(intAnzahl) = "" For intIndex = 0 To intAnzahl - 1 Call OrdnerLoeschen(strPath & strUnterordner(intIndex)) Next intIndex End Sub

Laufzeitfehler 52	86	Der	05.08.02 08:34
Re: Laufzeitfehler 52	457	Dieter	05.08.02 08:46
Re: Laufzeitfehler 52	47	Der	05.08.02 09:49
Re: Laufzeitfehler 52	462	Dieter	05.08.02 10:21
Re: Laufzeitfehler 52	43	Der	05.08.02 11:06
Re: Laufzeitfehler 52	429	Dieter	05.08.02 11:22
Re: Laufzeitfehler 52	42	Der	05.08.02 11:24
Re: Laufzeitfehler 52	432	Dieter	05.08.02 12:21
Re: Laufzeitfehler 52	42	Der	05.08.02 12:30
Nein!	514	Dieter	05.08.02 12:33
Re: Nein!	54	Der	05.08.02 12:35
Re: Nein!	428	Dieter	05.08.02 12:38
Re: @!#$ sorry	43	Der	05.08.02 12:46
Re: @!#$ sorry	439	Dieter	05.08.02 13:03
Re: @!#$ sorry	47	Der	05.08.02 13:53

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen