[VB] Copiare File - Accesso Negato

[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.

[xegallo]

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]

'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]

Se non FileCopy sostituisce un File con un'altro.

Cmq no, il file non era aperto.

[xegallo]

prova col vecchio comando name