online 1
gast (50)

/ Forum / Datenbanken

DatenbankenDatenbanken

Fragevon morpheus__85 vom 05.09.2019, 08:58 Options

File Search

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 schreiben

Antwort 1 von Teddy7 vom 05.09.2019, 10:03 Options

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

Antwort 2 von Marie vom 06.09.2019, 01:23 Options

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

Antwort 3 von morpheus__85 vom 06.09.2019, 07:57 Options

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

Ähnliche Themen

location.search
c.i.b.magic  18.07.2007 - 18 Hits - 3 Antworten

Deinstallieren von Windows Desktop Search
Simplon  01.04.2008 - 119 Hits - 2 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026