Makro: Msgbox frage

Billy · 24.06.2005

Tag wohl

ich hab eine kleine Frage...

wie kann ich am einfachsten machen, dass wenn ich bei der unten folgenden Msgbox ein resultat bekomme ob die vorhandene Datei überschrieben werden soll oder nicht?

Code:

'Kontrolle ob File bereits exsistiert
If fs.fileexists(pfad) = True Then
 MsgBox Hinweis &amp; vbLf &amp; Es exsistiert bereits eine Datei mit dem Namen  &amp; dateiname &amp; . Wollen Sie die Datei überschreiben?, vbInformation + vbOKCancel, Hinweis
End If

ich weiss nicht ob das bislang so stimmt mit dem buttons und so... danke für eine kleine Starthilfe

mfg billy

Matjes · 24.06.2005

Hallo billy,

ein kleines Beispiel:

Code:

Sub BeispielMsgbox()

  Const dateiname = DateiXYZ

  Dim ret As Integer
  
  ret = MsgBox( _
          Hinweis &amp; vbLf &amp; _
          Es exsistiert bereits eine Datei mit dem Namen  &amp; dateiname &amp; . &amp; vbLf &amp; vbLf &amp; _
          Wollen Sie die Datei überschreiben?, _
          vbInformation + vbOKCancel + vbDefaultButton2, Hinweis)
  If ret = vbOK Then
    MsgBox (Überschreiben)
  Else
    MsgBox ( Nicht überschreiben)
  End If
End Sub

vbDefaultButton2 setzt den 2. Button als Default-Button, also Cancel. Der User muß also für Überschreiben definitiv auf OK klicken. Wenn er einfach mit der Return-Taste weitergeht, wird vbCancel zurückgegeben.

Gruß Matjes

Billy · 24.06.2005

achso

ja ich habs irgend wie mit klammern versuch und dann = vbok drangehängt *gg*

jo danke jedenfalls ;D

Makro: Msgbox frage

Billy

Matjes

Billy

Makro: Msgbox frage

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums