Visual Basic 6 - Copiare file su CD

Ciao!!
Vorrei sapere come posso fare a copiare file su CD e vorrei anche sapere come posso copiare più file da una cartella, in un'altra cartella (senza l'utilizzo di file esterni come i batch).

per copiare file da una cartella ad un' altra puoi usare la routine filecopy oppure usare questo codice

dim data(1023)as byte 'così trasferisci un Kb ala volta
open xcorsosorg for binary as 1
open xcorsodest for binary as 2
do while eof(1)=false
get 1,,data
put 2,,data
loop
close

spero sia quelo che cerchi

Grazie xò sia che con fileCopy che con il tuo codice posso copiare un file alla volta, non tutti i file in una cartella a un'altra cartella

allora prova questo codice

Private Sub CopiaFiles(DirSorg as string, DirDest as string)
File1.Path = dirsorg
For i = 0 To File1.ListCount - 1
FileCopy dirsorg & "\" & File1.List(i), dirdest & "\" & File1.List(i)
Next i
End Sub

fammi poi sapere
ciao...

Ecco come ho messo il tuo codice nel form (che ha un commandbutton):

Private Sub CopiaFiles(DirSorg As String, DirDest As String)
File1.Path = DirSorg
For i = 0 To File1.ListCount - 1
FileCopy DirSorg & "C:\prova\" & File1.List(i), DirDest & "C:\prov\" & File1.List(i)
Next i
End Sub

Private Sub Command1_Click()
CopiaFiles
End Sub

Purtroppo quando provo il programma mi da errore dicendomi:
argument not optional
e poi si evidenzia CopiaFiles nella sub command1

Cmq grazie x esserti interessato.

xk dopo copiafiles devi mettere la cartella dove i sono i file da copiare , la cartella di destinazione dei file

es:
private sub command1_click()
copiafiles "C:\immagini,"C:\videi"
end sub

ti sposta tutti i file nella cartella C:\immagini nella cartella c:\videi

in + se imposti i filtri al controllo filelistbox, copi solo i file con quell' estensione

Ho fatto come mi hai detto tu ma ancora non funziona, ecco l'errore:

__________________________________________________

Run-time error "424"

Object required

__________________________________________________

ecco come ho messo il codice:

Private Sub CopiaFiles(DirSorg As String, DirDest As String)
File1.Path = DirSorg
For i = 0 To File1.ListCount - 1
FileCopy DirSorg & "\" & File1.List(i), DirDest & "\" & File1.List(i)
Next i
End Sub

Private Sub Command1_Click()
CopiaFiles "C:\prova", "C:\prov"
End Sub

e il programma mi evidenzia:
File1.Path = DirSorg

Sai cosa c'è che non và??
A te funziona??
Come posso fare??

l' errore nn è nel codice
assicurati che esista l' oggetto filelistbox e che la proprietà nome sia file1

poi funziona