Copia file aperto

Question

Ciao a tutti

utilizzo la seguente routine per copiare un file che potrebbe essere aperto da altro utente:

    SourceF = "C:\MiaCartella\foto1.jpg"

    DestF = "C:\MiaCartella\Foto\foto1.jpg"

    If Dir(SourceF) = "" Then

            MsgBox Chr(34) & SourceF & Chr(34) & _

               " is not a valid file name."

         Else

            CopyString = "COMMAND.COM /C COPY " & SourceF & _

               " " & DestF

            Call Shell(CopyString, 0)

    End If

la If Dir(SourceF) = "" non mi restituisce il messaggio di errore, ma la Call Shell(CopyString, 0) dice impossibile trovare il file.

Nell'immagine l'errore e l'esistenza del file source e della dest:

ho provato anche:

CopyString = "CMD.COM /C COPY " & SourceF & _

               " " & DestF

grazie per l'attenzione

domenico

Answer 1

Grazie comunque,

ho risolto con:

   Dim CopyOpenFile As New FileSystemObject

   CopyOpenFile.CopyFile SourceF, DestF, True

resta la curiosità perché l'altro metodo non funziona

saluti

domenico