[VB 6.0] sovrascrittura file vista non funziona

[barney09]

Salve,

ho scritto un software B che dovrebbe effettuare l'aggiornamento di alcuni file del software A.

Il problema è che su VISTA l'aggiornamento dei file non avviene, e NON vengono mostrati messaggi di errore.

Se ripeto l'operazione manualmente, dopo aver sovrascritto il file, se lo apro (è un MDB) noto che la sovrascrittura non è avvenuta.

Ho provato a rinominare il file, e effettuare la copia a mano del nuovo file, ma quando lo apro continua a mostrarmi il VECCHIO.

Segue il codice che utilizzo.

Private Sub aggiornafile(da As String, a As String)

        DoEvents
        On Error GoTo allert
        FileCopy App.Path & "\" & da, Text1.Text & "\" & a
        filecopiati = filecopiati + 1
        Label3.Caption = "file aggiornati " & filecopiati & " di " & filedacopiare
        
        DoEvents
        Exit Sub
allert:
    Tmp = MsgBox("Impossibile aggiornare, chiudere il programma e riprovare.", vbOKOnly, "software")
    End
End Sub