Kopieren van bestanden

[Nickdude]

Nogmaals een vraagje van mij....
Ik wil met gebruik van VB bestanden kopieren naar een andere map. Nu weet ik dat dat via Filecopy kan, maar dan moet je het volledige adres opgeven waar het bestand staar en hoe het moet worden opgeslagen. Het volledige adres van het bestand is niet moeilijk, maar ik wil dus enkel een standaard directory ingeven en dat via de code automatisch in de nieuwe directory het bestand onder dezelfde naam opgeslagen wordt.

Dus:
Bestand: c:\temp\test.xls
Moet gekopieerd worden naar: d:\nieuw\test.xls

Het bestand selecteer ik d.m.v.de volgende code:

Private Function SelectFile()
Dim f As Integer
Dim lngFlags As Long
Dim adhcAccErrSuccess
Dim gfni As adh_accOfficeGetFileNameInfo
    
    On Error GoTo HandleErrors

    With gfni
        .lngFlags = lngFlags
        .strFilter = "All Files (*.*)"
        .lngFilterIndex = CInt("1")
        .strFile = ""
        .strDlgTitle = "Select a file"
        .strOpenTitle = "Select"
        .strFile = ""
        .strInitialDir = ""
    End With
    If adhOfficeGetFileName(gfni, True) = adhcAccErrSuccess Then
        selectedfile = Trim(gfni.strFile)
    End If
    
ExitHere:
    Exit Function

HandleErrors:
    MsgBox "Error: " & err.Description & " (" & err.Number & ")"
    Resume ExitHere
End Function

Wie kan mij verder helpen?