Datei (in Zielordner) hochladen

Hallo! hoffe ihr habt schöne feiertage gehabt!
hoffe ihr könnt mir weiterhelfen:
Ich habe ein Formular (For_Neue Datei), in dem Informationen zu neuen Dateien eingegeben werden und der Pfad zur Datei zusätzlich in die DB abgelegt wird. Ich möchte nun, dass die Datei beim Auswählen des Pfades oder eben beim abspeichern direkt in einen bestimmten Zielordner abgelegt wird.
Könnt ihr mir da weiterhelfen??
der Code, um die Datei auszuwählen sieht so aus:

Code:

Dim strFilter As String
Dim strInputFileName As String

strFilter = ahtAddFilterItem(strFilter, „*.*“, „*.*“)
strInputFileName = ahtCommonFileOpenSave(Filter:=strFilter, OpenFile:=True, _
DialogTitle:=„Bitte die Datei bzw. den Datipfad auswählen…“, _
Flags:=ahtOFN_HIDEREADONLY)
Me.D_Ort = strInputFileName

was muss ich nun hinzufügen, damit die datei im gewünschten Zielordner abgelegt wird?
ich danke euch im Voraus

liebe grüsse

Hallo Rihab,

erster Treefer in Google: http://www.mvps.org/access/api/api0001.htm runterscrollen bis Funktion TestIt().

MfG Georg V.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Hallo,

geht auch mit

FileCopy stQuelle, stZiel

Die beiden Stringvariablen enthalten die Pfade.

ujk