[VB.NET2008] Copia incolla di un file

[marco.santilli]

Mi serve creare una funzione che mi permetta di copiare un file, ricercandolo con il classico sfoglia, in una cartella fissa decisa in fase di configurazione....

Con questo codice apro la finestra di ricerca e seleziono il file...

  With OpenFileDialog
            .InitialDirectory = Application.StartupPath & "\Copertine\"
            .Filter = "All Files|*.*|JPEGs|*.jpg|Bitmaps|*.bmp|GIFs|*.gif"
            .FilterIndex = 2
        End With
        If OpenFileDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
            With Me.PictureCopertina
                .Image = Image.FromFile(Me.OpenFileDialog.FileName)
                .Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom
            End With
        End If
        Me.txtPercorsoCopertina.Text = Me.OpenFileDialog.FileName.ToString

oltre ad eseguire questa funzione devo creare un duplicato in una seconda cartella ad esempio
"CopertineCopie"

come eseguo il copia ed incolla?

Ciao e grazie

[Pirelli72]

System.IO.File.Copy(OpenFileDialog1.FileName, String.Concat("C:\CopertineCopie\", System.IO.Path.GetFileName(OpenFileDialog1.FileName)), True)

Attenzione non c'è il controllo dell'esistenza della directory 'CopertineCopie' ed ho inserito il parametro di sovrascrittura.

(OT: Il tuo sito non è male!)

[marco.santilli]

Originariamente inviato da Pirelli72

System.IO.File.Copy(OpenFileDialog1.FileName, String.Concat("C:\CopertineCopie\", System.IO.Path.GetFileName(OpenFileDialog1.FileName)), True)

Attenzione non c'è il controllo dell'esistenza della directory 'CopertineCopie' ed ho inserito il parametro di sovrascrittura.

(OT: Il tuo sito non è male!)

L'ho modificata cosi:
System.IO.File.Copy(OpenFileDialog1.FileName, String.Concat(Application.StartupPath & "\CopertineCopie\", System.IO.Path.GetFileName(OpenFileDialog1.FileNam e)), True)


e mi dice errore di file vuoto

[Pirelli72]

e mi dice errore di file vuoto.

Ma è una tua traduzione?

Correggi in:

  System.IO.File.Copy(OpenFileDialog1.FileName, String.Concat(My.Application.Info.DirectoryPath & "\CopertineCopie\", System.IO.Path.GetFileName(OpenFileDialog1.FileName)), True)

Inoltre sei sicuro che la directory My.Application.Info.DirectoryPath & "\CopertineCopie esita prima di copiarci il file?