PDA

Vollständige Version anzeigen : Dateien auswählen und Pfad in ein Textfeld schreiben...


Wisler
13.02.2001, 09:37
Hallo zusammen!

Wie kann ich in Access 2000 eine Datei auswählen und den gesamten Pfad danach in ein Textfeld schreiben???

Gruss und Dank
Martin

Nockenwelle
13.02.2001, 14:43
Hallo,

Müsste gehen:

Dim rst As Recordset
Dim vtext As String
'Dim stAppName As String
Dim i As Variant
Dim dateisuche



Set dbs = CurrentDb
'Warnmeldungen abschalten
DoCmd.SetWarnings False
Set rst = dbs.OpenRecordset("Deine Tabelle", dbOpenDynaset)

Set dateisuche = Application.FileSearch
With dateisuche
.LookIn = Verzeichnis
'z.B."C:\"
.FileName = Namen
.SearchSubFolders = False
.Execute
For i = 1 To .foundfiles.Count
rst.AddNew
rst!Dateiname = .foundfiles.Item(i)
rst.Update

'MsgBox .FoundFiles(i)
'Debug.Print .foundfiles.Item(i)
Next i

Cu