Private Sub Command1_Click()
pippo = "\" & Form10.Text1.Text
ciccio = Text1.Text
pippo = App.Path & pippo
Call FileCopy(pippo, ciccio)
End Sub

Private Sub Drive1_Change()
On Error GoTo GestoreErrori
Dir1.Path = Drive1.Drive
Exit Sub

GestoreErrori:

If Err.Number = 68 Then
'Periferica non disponibile.
MsgBox "Impossibile accedere all'unità specificata. Selezionare un'unità diversa e riprovare."
Drive1.Drive = Dir1.Path
End If
End Sub


Private Sub Dir1_Change()
File1.Path = Dir1.Path
Text1.Text = File1.Path
End Sub

Private Sub File1_Click()
Dim FileSelezionato As String
If Right$(File1.Path, 1) = "\" Then
FileSelezionato = File1.Path & File1.FileName
Else
FileSelezionato = File1.Path & "\" & File1.FileName
End If
End Sub

dove ciccio è = a "C:\Documents and Settings\sanny82\cartella"
e pippo è = a "C:\Documents and Settings\sanny82\PDF\filePDF.pdf"

Grazie mille