Supportnet / Forum / Datenbanken
File Search
Frage
Gute morgen,
hätte mal eine Frage.
Ich hab in meiner Datenbank eine Download funktion.
Bisher hab ich es immer so gehabt, dass ich 2 Textfeldet habe in dem ersten geb ich den Pfad der Datei und im 2 Textfeld den Namen ein und mittels eines Buttons wird die Datei dann automatisch importiert. Soweit so gut.
Jetzt hab ich aber gehört, dass es auch die möglichkeit gibt, das Dialogfeld Öffnen also im Word zum Beispiel --> Menü --> Datei --> Öffnen nachzustellen das das die selben Funktionalitäten aufweist, ich mir dann meinen gewünschten Ordner und Datei im gewünschten Laufwerk aussuchen kann. Hab in der Hilfe unter File Search eine Code gefunden.
With Application.FileSearch
If .Execute() > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
Allerdings wirft der mir ja, wenn ich ihn bei einem Button hinterlege die Namen von Dateien aus.
Kann mir jemand helfen und sagen wie der Code aussehen müsste, dass wenn ich eien Button sagen wir mal "cmdsuchen" anklicke, dann eben dieses "Datei Öffnen" Fenster erscheint, und mir dann der Pfad und der Dateiname automatisch in die 2 Textfeldet gelegt wird, sodass Fehler beim Eintragen des Pfades oder des Dateinamens ausgeschlossen werden können?
hoffe mir kann jemand helfen
vielen dank schon mal im voraus
gruß
morpheus
Antwort 1 von Teddy7
Das kann so aussehen:
Dim fd As New FileDialog
Dim i1 As Integer
Dim FocusAufAuswahl As Boolean
If Not IsNull(Link1) Then
fd.DefaultDir = fPfad(Link1)
Else
fd.DefaultDir = "J:\KIA\SAP-FI"
End If
fd.ShowOpen
If fd.FileName <> "" Then
Link1 = fd.FileName
End If
Set fd = Nothing
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Dazu brauchst Du aber noch das Modul FileDialog, das zu groß ist um es hier zu posten.
Wenn Du es in keiner Beispieldatenbank findest kannst Du mir per pager Deine mail-Adresse mitteilen und ich schick Dir das Teil.
Gruß
Teddy
Dim fd As New FileDialog
Dim i1 As Integer
Dim FocusAufAuswahl As Boolean
If Not IsNull(Link1) Then
fd.DefaultDir = fPfad(Link1)
Else
fd.DefaultDir = "J:\KIA\SAP-FI"
End If
fd.ShowOpen
If fd.FileName <> "" Then
Link1 = fd.FileName
End If
Set fd = Nothing
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Dazu brauchst Du aber noch das Modul FileDialog, das zu groß ist um es hier zu posten.
Wenn Du es in keiner Beispieldatenbank findest kannst Du mir per pager Deine mail-Adresse mitteilen und ich schick Dir das Teil.
Gruß
Teddy
Antwort 2 von Marie
Warum soll der zu groß sein??
Den file open dialog von Ken Getz findest Du auf der HP von Dev Ashish
http://www.mvps.org/access/api/api0001.htm
brauchste einfach nur zu kopieren.
Gruß Marie
Den file open dialog von Ken Getz findest Du auf der HP von Dev Ashish
http://www.mvps.org/access/api/api0001.htm
brauchste einfach nur zu kopieren.
Gruß Marie
Antwort 3 von morpheus__85
Hallo Teddy,
vielen Danke für deine Hilfe.
Hab jetzt den Code in mein erstelltes Modul "FileDialog" reinkopiert und den Aufruf in das Klickereignis gelegt.
Allerdings bekomme ich jetzt die Fehlermeldung
Fehler beim Kompilieren
Ein Modul hat einen unzulässigen Typ
Der Compiler markiert mir das Private Sub cmdaufruf_Click() gelb und das fd As New FileDialog blau....
gruß
morpheus
vielen Danke für deine Hilfe.
Hab jetzt den Code in mein erstelltes Modul "FileDialog" reinkopiert und den Aufruf in das Klickereignis gelegt.
Allerdings bekomme ich jetzt die Fehlermeldung
Fehler beim Kompilieren
Ein Modul hat einen unzulässigen Typ
Der Compiler markiert mir das Private Sub cmdaufruf_Click() gelb und das fd As New FileDialog blau....
gruß
morpheus