VBA svarende til copy c:\sti1\*%1.* c:\sti2\%1.xml

Jeg har brug for at kopiere filer, som jeg kun kender den sidste del af navnet på til en ny mappe, hvor navnet skal være den del af navnet, som jeg kender med extension xml.

Eksempel:
copy c:\sti1\*78887.* c:\sti2\78887.xml
virker fra en dos promt.

Jeg anvender MS Access 2003 og vil køre funktionen fra en makro.

Når denne funktion komme til at virke, skal den udbygges, så den henter en stribe filer angivet i en tabel.


Følgende virker ikke:

Function partnamecopy()
  Dim source, destination, filepartname As String
  Dim ofs As Object
 
  Set ofs = CreateObject("Scripting.FileSystemObject")
 
    With ofs
        filepartname = "78887"
        source = "C:\sti1\*" & filepartname & ".*"
        destination = "C:\sti2\" & filepartname & ".xml"
   
    '  Debug.Print source, destination
       
        FileCopy source, destination
   
    End With
End Function



Debug.Print source, destination
giver resultatet:
C:\sti1\*78887.*            C:\sti2\78887.xml
hvilket for mig ser fornuftigt ud.

FileCopy source, destination - giver fejl
FileCopy(source, destination) - giver også fejl


Jeg er ret ny inden for VBA, men forsøger ihærdigt.

Glæder mig til at få nogle gode svar.

Peter