Problemen met kopiëren van files

[Jan Van Haaren]

Hi,

Ik heb een form met een filelistbox erop, genaamd File1.
Ik heb ook een commandbutton "Command1". Achter de commandbutton zit deze code:

Private Sub Command1_Click()
Dim selected As String
Dim destination As String

selected = File1.FileName

    With dlgCommonDialog
        .DialogTitle = "Opslaan als"
        .CancelError = False
        .Filter = ""
        .ShowSave
        If Len(.FileName) = 0 Then
            Exit Sub
        End If
        destination = .FileName
    End With
    
FileCopy selected, destination

Ik krijg echter steeds de melding "File not found", als ik de waarde "selected" al opgeef en er bijvoorbeeld "C:\test.txt" van maak (die bestaat dan ook echt), dan werkt het wel. Ik heb het gevoel dat ik een stomme fout maak, maar dewelke?

Groeten, Jan

 

[cbhonda]

Normaal geeft een filelist enkel de bestandsnaam terug.
Voor een copy opdracht heb je het volledige pad nodig.
Controleer maar eens of je het volledige pad terug krijgt.

vb:

Private Sub Command1_Click()
Dim selected As String
Dim destination As String

selected = File1.FileName
MsgBox selected 'moet C:\test.txt zijn en
'niet alleen test.txt


With dlgCommonDialog
.DialogTitle = "Opslaan als"

...