Kopiere filer til en mappe der vælges i en mappevælger.

Jeg har tidligere fundet noget kode, som kan vise en filvælger, der giver mig mulighed for at klikke frem til en mappe.

Jeg ønsker efterfølgende at benytte den valgte mappe til at kopiere nogle filer over i mappen med koden:

ChangeFileOpenDirectory "\\C\Dat\John\mappe\"
    FileCopy "Min-fil.doc", "\\xx\Min-fil-ny.doc"

hvor xx er den valgte mappe. Jeg tror at det er let - men her knækker filmen. Hvad gør jeg?
Den koder der viser mappevælgeren er:

-------------modul1 ------------------------
Private Type SHITEMID
    ch As Long
    abID As Byte
End Type

Private Type ITEMIDLIST
    mkid As SHITEMID
End Type

Private Type BROWSEINFO
    hOwner As Long
    pidlroot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlags As Long
    lpfn As Long
    lParam As Long
    iMage As Long
End Type

Private Declare Function SHGetPathFromIDList Lib _
  "shell32.dll" Alias "SHGetPathFromIDListA" _
  (ByVal pIDL As Long, ByVal pszPath As String) As Long

Private Declare Function SHBrowseForFolder Lib _
  "shell32.dll" Alias "SHBrowseForFolderA" _
  (lpBrowseInfo As BROWSEINFO) As Long
 
Private Const BIF_RETURNONLYFSDIRS = &H1

Public Function ChooseFolder(sTitle As String)
On Error GoTo ChooseFolder_ERR
   
    Dim BI As BROWSEINFO
    Dim IDL As ITEMIDLIST
    Dim pIDL As Long
    Dim LResult As Long
    Dim ipos As Integer
    Dim sPath As String
   
    BI.hOwner = 0
    BI.pidlroot = 0&
    BI.lpszTitle = sTitle
    BI.ulFlags = BIF_RETURNONLYFSDIRS
   
    pIDL& = SHBrowseForFolder(BI)
   
    sPath = Space(1024)
   
    LResult = SHGetPathFromIDList(ByVal pIDL, ByVal sPath)
   
    If LResult = 1 Then
        ipos = InStr(sPath, Chr(0))
        ChooseFolder = Left(sPath, ipos - 1)
    Else
        ChooseFolder = ""
    End If
   
ChooseFolder_ERR:
    Exit Function

End Function
------------modul1 slut--------