[VB.NET] Copia File

[Igor Baldacci]

Salve a tutti,
tramite la classe "OpenFileDialog" copio un file da una cartella di origine ad una di destinazione.

Il problema nasce quando cerco di copiare LO STESSO FILE, situato nella stessa cartella di origine, in questo caso mi viene restituito il seguente errore:

"The process cannot access the file *** because it is being used by another process"

Gli asterischi indicano il nome del file che ho selezionato. Io inserisco l'istruzione "try - catch" e il sistema mi riporta l'errore sopra citato, però poi mi permette di copiare ugualmnete il file.

Vi chiedo allora come ovviare al problema, ovvero non far comparire questo messaggio di errore che poi alla fine non blocca l'esecuzione del programma, ma è comunque fastidioso. Vi riporto sotto il codice che uso e vi ringrazio per ogni suggerimento vogliate darmi:

With OpenFileDialog

    .CheckFileExists = True
    .ShowReadOnly = False
    .Filter = "Tutti i File|*.*|Jpeg File (*.jpg)|*.jpg|Bitmap Files (*.bmp)|*.bmp|Gif File (*.gif)|*.gif"
    .FilterIndex = 2

    If .ShowDialog = DialogResult.OK Then

       ' Estrapola ed assegna il nome del file
       Dim PathImmagine As String
       Dim LunghezzaTotale As Integer
       Dim LunghezzaPath As Integer

       LunghezzaTotale = Len(.FileName)
       TaglioInizio = .FileName.LastIndexOfAny(strChar) + 1
       PathImmagine = .FileName.Substring(0, TaglioInizio)
       LunghezzaPath = Len(PathImmagine)
       NomeImmagine = .FileName.Substring(LunghezzaPath, (LunghezzaTotale - LunghezzaPath))

       Try

          Dim FileOrigine As String = .FileName
          Dim FileDestinazione As String = PercorsoImmagine & "/" & NomeImmagine
          System.IO.File.Copy(FileOrigine, FileDestinazione, True)

       Catch ex As Exception

          Dim strMsg As String
          strMsg = "Errore di Sistema!" & vbCrLf
          strMsg += ex.Message
          MsgBox(strMsg, MsgBoxStyle.OKOnly.Critical)

       End Try

    End If

End With

[alka]

Originariamente inviato da Igor Baldacci
Il problema nasce quando cerco di copiare LO STESSO FILE, situato nella stessa cartella di origine, in questo caso mi viene restituito il seguente errore

Non ho capito...stai cercando di copiare un file sopra se stesso?

[Igor Baldacci]

Ciao, no è quello che vorrei evitare. Cioè se tento di "copiare un file sopra se stesso" mi ritorna quel messaggio di errore che ho indicato sopra e io non vorrei che mi venisse segnalato l'errore...

non so se mi sono spiegato!

[alka]

Originariamente inviato da Igor Baldacci
Ciao, no è quello che vorrei evitare. Cioè se tento di "copiare un file sopra se stesso" mi ritorna quel messaggio di errore che ho indicato sopra e io non vorrei che mi venisse segnalato l'errore...

Ti basta controllare che i percorsi del file sorgente e del file di destinazione siano diversi.

[cassano]

oppure oltrepassare il try catch praticamente è come se facessi il vecchio on error resume next per capirci.

[Igor Baldacci]

mmmhh.. non ho mica capito bene sapete ... sarò l'ottavo nano: tontolo!

Cioè in prativa devo mettere un controllo a monte che verifica che il file che sto cercando di copiare non è già presente?

Il suggerimento di cassano invece non l'ho capito perchè non conosco la vecchia sintassi del VB...

Pensavo invece che magari potrei proprio sfruttare proprio il try - cacth mettendo un controllo più specifico anzichè generico... devo solo trovarlo, al momento non so manco se esiste un controllo "ex" specifico per la copia di file già esistenti!

Comunque uè ragazzi siete stai gentilissimi, alla prox!

[alka]

Originariamente inviato da Igor Baldacci
Cioè in prativa devo mettere un controllo a monte che verifica che il file che sto cercando di copiare non è già presente?

Nel tuo esempio ci sono due variabili, FileOrigine e FileDestinazione: accertandosi che siano differenti prima di eseguire la copia credo sia sufficiente.

Ciao!

[Igor Baldacci]

Credo di aver risolto come dici tu, ma usando l'sitruzione "File.Exist".

Ti incollo il cuore del codice giusto per farti vedere, però mi rimane il cruccio iniziale. Ovvero come poter "inglobare" l'istruzione "IF file.exist(FileDestinazione) THEN" nel try - catch! Mi sembra più logico.

Comunque così funziona alla grande.

Ciao e grazie ancora.

Try

  If Not File.Exists(FileDestinazione) Then

     ' Copia Il file nella cartella di destinazione
     '
     System.IO.File.Copy(FileOrigine, FileDestinazione, True)

  Else

     Dim strMsg As String
     strMsg = "ATTENZIONE!" & vbCrLf
     strMsg += "Esiste già un file con lo stesso nome."
     MsgBox(strMsg, MsgBoxStyle.OKOnly.Critical)

  End If

Catch ex As Exception

  Dim strMsg As String
  strMsg = "Errore di Sistema!" & vbCrLf
  strMsg += ex.Message
  MsgBox(strMsg, MsgBoxStyle.OKOnly.Critical)

End Try

[daryl74]

Toglietemi una curiosità: il programma continua la sua esecuzione dopo aver eseguito l'istruzione

System.IO.File.Copy(FileOrigine, FileDestinazione, True)

o aspetta che il file sia stato copiato completamente?

Come faccio a sapere che la copia del file è finita senza dover eseguire dei "DIR nomefile" continuamente?

Grazie

[cassano]

si ferma il thread.