problema copia file

[sanny82]

Ciao a tutti ho visto un esempio di come posso salvare un file da una parte ad un'altra , ma non riesco a farlo funzionare....

Perche non funziona???


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

Mi da come errore:"Errore di acceso al percorso/file"
Ma il percorso lo predno tramite il DriveListBox e Dir ListBox...
e il file lo prendo con App.Path & mio file...

Cosa c'è che non va?

Grazie mille

[Foga27News]

Attento che filelistbox,dirlistbox e drivelistbox devono essere collegati dal codice!
Se cambio Il drive, non resteranno le stesse cartelle!
Consiglio: Usa debug.print per visualizzare, prima della copia, i nomi completi dei file!

[sanny82]

Si lo so, ma quello funziona mi restituisce "c:\Document&Setting\NuovaCartella"

Ma mi sto errore e non capisco perchè...

[Pieruccio]

ciao
se mi posti il progetto gli do un occhiata
pfulcheri@hotmail.com

[sanny82]

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

[Pieruccio]

presumo che ti sei accertato dell'esistenza del file PDF.
il problema è che
ciccio è = a "C:\Documents and Settings\sanny82\cartella"
MANCA IL NOME DEL FILE
ciccio è = a "C:\Documents and Settings\sanny82\cartella\nomefile.pdf"
:tongue:

[sanny82]

Originariamente inviato da Pieruccio
presumo che ti sei accertato dell'esistenza del file PDF.
il problema è che
ciccio è = a "C:\Documents and Settings\sanny82\cartella"
MANCA IL NOME DEL FILE
ciccio è = a "C:\Documents and Settings\sanny82\cartella\nomefile.pdf"
:tongue:

Scusa è
pippo = a "C:\Documents and Settings\sanny82\cartella\nomefile.pdf"

[Pieruccio]

da me funziona!
accertati che il file non sia in sola lettura o attualmente aperto o che in qualche modo le cartelle sono protette in scrittura.
Il codice che hai postato è corretto!
Se ti da errore è dovuto al file

[sanny82]

ok è tutto a posto funziona grazie per l'aiuto