PDA

Visualizza la versione completa : [VB] Copiare File - Accesso Negato


zampa28
21-10-2002, 13:51
ecco il codice che uso:



Private Sub CmdAggiorna_Click()
'Aggiorna il database
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(App.Path & "\immagini\AA001.jpg")
f.Copy App.Path & "\Database"
MsgBox ("OK!!!")
End Sub


Errore:

Accesso negato e mi sottolinea questa riga:



f.Copy App.Path & "\Database"


Se invece provo a copiare delle cartelle, sostituendo GetFile con GetFolder tutto funziona perfettamente.

xegallo
21-10-2002, 14:18
Originariamente inviato da zampa28
ecco il codice che uso:



Private Sub CmdAggiorna_Click()
'Aggiorna il database
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(App.Path & "\immagini\AA001.jpg")
f.Copy App.Path & "\Database"
MsgBox ("OK!!!")
End Sub


Errore:

Accesso negato e mi sottolinea questa riga:



f.Copy App.Path & "\Database"


Se invece provo a copiare delle cartelle, sostituendo GetFile con GetFolder tutto funziona perfettamente.


porva così


Function CopyFile(srcFile As String, dstFile As String)
On Error Resume Next
Dim Copy As Long, CopyByteForByte As Byte
Open srcFile For Binary Access Write As #1
'Apre in scrittura il file di destinazione
Open dstFile For Binary Access Read As #2
'Copia sul file destinazione Byte-per-Byte
For Copy = 1 To LOF(2)
Put #1, , CopyByteForByte '
Next Copy
MsgBox "Fine!"
End Function

jabjoint
21-10-2002, 16:20
'C' è già la funzione perchè rifarla??

FileCopy "nomefilediorigine", "nomefiledestinzione"

Se no fai cosi:

Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "n", "n2"

'Comunque l' errore te lo dava perchè non poteva ottenere il file poichè era in uso.

zampa28
21-10-2002, 22:31
Se non FileCopy sostituisce un File con un'altro.

Cmq no, il file non era aperto.

xegallo
22-10-2002, 00:58
prova col vecchio comando name

Loading