Speichern nur auf einem bestimmten Laufwerk Hier wird gezeigt, wie man das Speichern einer Datei/eines Dokuments auf ein bestimmtes Laufwerk beschränkt.
Autor:   Heinz Prelle	Bewertung:     [ Jetzt bewerten ]	Views:  13.559
www.visual-basic5.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 2 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Unser heutiger Tipp richtet sich eher an VB-Einsteiger und Neulinge. Hier wird gezeigt, wie man das Speichern einer Datei/eines Dokuments auf ein bestimmtes Laufwerk beschränkt.

' benötigt wird das MS-CommonControl
Private Sub Command1_Click()
  Dim Filename As String
 
  ' Speichern unter... - Dialog
  On Local Error Resume Next
  With CommonDialog1
    .CancelError = True
    Do
      .Action = 2
      ' Prüfen, ob "Abbrechen"
      If Err <> 0 Then
        Filename = "": Exit Do
      End If
 
      ' nur Laufwerk A zulassen
      If UCase$(Left$(.Filename, 1)) <> "A" Then
        MsgBox "Geben Sie den Dateinamen ein und legen " + _
         "Sie als Laufwerk A: fest.", vbInformation, _
         "Hinweis..."
      Else
        Filename = .Filename
        Exit Do
      End If
      DoEvents
    Loop
  End With
 
  ' Dokument speichern
  If Filename <> "" Then
    ...    
  End If
End Sub