|
Hallo zusammen
Ich habe folgendes Problem: Über eine TextBox mit CommandButton will ich einen Ordner auswählen. Das klappt auch problemlos. Der Pfad wird als TextBox_Netzlaufwerk.Value gespeichert. Anschließend habe ich einen weiteren CommandButton. Über diesen soll eine Datei ausgewählt werden. Dafür wird die Funktion Applivation.GetSaveAsFileName() verwendet. Den InitialFilename gebe ich dabei folgendermaßen an: Applivation.GetSaveAsFileName(TextBox.Value & "\Geraetefiles, ...... )
Das klappt soweit problemlos auf C:/, D:/ und jeglichen USB-Sticks. Nur leider nicht auf den Netzwerkadressen, für die es vorgesehen ist.
Kann mit bitte jemand erklären woran es scheitert und wie ich den Code auch für Netzwerkadressen zum laufen bekomme?
Danke schonmal für alle Antworten
Private Sub CommandButton_Auswahl_Konfig_Click()
Dim vAdr, vAdr2, vAdr3 As Variant
Dim fso As Object
Dim pfad1, Pfad2, pfad3 As String
Dim temp As String
temp = TextBox_Anzeigen.Value
TextBox_Anzeigen.Value = Application.GetSaveAsFilename(TextBox_Netzlaufwerk.Value & "\Geraetefiles", "(*.ini; *.ini.update),*.ini; *.ini.update", 1, "Auswahl: Konfig_ini (.ini)")
If TextBox_Anzeigen.Value = "" Then
TextBox_Anzeigen.Value = temp
End If
End Sub
|