Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Fehlerprüfung bei MkDir einbauen | Herbers Excel-Forum


Betrifft: Fehlerprüfung bei MkDir einbauen von: Stefan
Geschrieben am: 05.01.2012 14:48:15

Hallo zusammen,

ich lege mit MkDir ein Verzeichnis an.
Wie kann ich abfangen, ob das Anlegen erfolgreich war? Ich möchte gern einen Fehler ausgeben, wenn das Verzeichnis nicht angelegt werden konnte.

Könnt Ihr mir da helfen?

Danke Euch.

  

Betrifft: AW: Fehlerprüfung bei MkDir einbauen von: Rudi Maintaire
Geschrieben am: 05.01.2012 15:01:22

Hallo,
gibt doch sowieso ne Fehlermeldung.

Gruß
Rudi


  

Betrifft: AW: Fehlerprüfung bei MkDir einbauen von: Stefan
Geschrieben am: 05.01.2012 15:33:06

hallo Rudi,

aber ich würde gern eine Msgbox ausgeben und nicht auf die Standardfehlermeldung/-text verlassen wollen.
Kann ich das irgendwie einrichten?

Danke Dir.


  

Betrifft: Ja, Fehler abfangen! On Error GoTo ... [orT] von: Luc:-?
Geschrieben am: 05.01.2012 15:36:49

[orT]=ohne relevanten Text in der Antwort
GutsNeus, Luc :-?


  

Betrifft: Verzeichnis erstellen ohne MkDir von: Josef Ehrensberger
Geschrieben am: 05.01.2012 15:45:09


Hallo Stefan,

Verzeichnisse erstellt man am besten so.

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal Pfad As String) As Long

Sub test()
  Dim strPath As String
  Dim lngResult As Long
  
  strPath = "C:\Test\Test\Test\Test"
  
  If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
  
  lngResult = MakeSureDirectoryPathExists(strPath)
  
  If lngResult <> 0 Then
    MsgBox "Verzeichnis erstellt!"
  Else
    MsgBox "Verzeichnis konnte nicht erstellt werden!"
  End If
  
End Sub







« Gruß Sepp »



Beiträge aus den Excel-Beispielen zum Thema "Fehlerprüfung bei MkDir einbauen"