File naar Dir kopieren

[bonnowagt]

Hallo,

Ik heb een database met een listview. Hierin komen uiteraard dus de namen en vooriz eik elke naam, item met een foto. Bijgaande foto'sstaan her en der op de harde schijf. Programma werkt prima maar ik wil nu graag als een gebruiker een foto toevoegd deze foto dan tevens direct wordt gekopieeerd naar mijn programma. De foto staat dan nog wel op dezelfde plaats maar tevens ook onder mijn programma.

Voorbeeld:
De te gebruiken foto staat op c:\foto\1.jpg.
De foto moet gekopieerd worden naar c:\contact direct\afbeeldingen

Ik voeg de foto als volgt in:

  If openfile.ShowDialog = DialogResult.OK Then
            Foto.Text = openfile.FileName[CODE]


Ik heb diverse codes gevonden en uitgeprobeerd maar het werkt niet.

 

[edmoor]

In VB kun je daar de FileCopy functie voor gebruiken.

 

[JoZ1]

System.IO.File.Copy("c:\foto\1.jpg."," c:\contact direct\afbeeldingen\1.jpg")

Zoiets?

 

[edmoor]

Ja.
Of:

Dim Result as Integer
Result = FileCopy("c:\foto\1.jpg"," c:\contact direct\afbeeldingen\1.jpg")

Dan heb je direct de error trapping ook geregeld waarvan de foutcode dan in Result staat.

 

[JoZ1]

Dat kan ook met Try Catch

Try
System.IO.File.Copy("c:\foto\1.jpg."," c:\contact direct\afbeeldingen\1.jpg")
Catch ex As Exception
MsgBox(ex.Message,16+4096,"Kritieke Fout")
End Try

 

[bonnowagt]

bedankt voor de reactie,

Ik had dit inmiddels ook wel maar ik heb misschien de vraag niet goed omschreven.
Bijvoorbeeld:

Dim Result as Integer
Result = FileCopy("c:\foto\1.jpg","  c:\contact direct\afbeeldingen")[CODE]

Maar ik wil dit natuurlijk niet iedere keer in de code invoeren. Ik heb dus de foto
opgevraagd en c:\foto\1.jpg wordt dus foto.text.

Dus bijvoorbeeld als volgt: filecopy(foto.text, c:\contact direct\afbeeldingen\????)

 

[edmoor]

Bij DOEL en BESTEMMING zul je string variabelen moeten gebruiken die ergens vandaan gevuld moeten worden.
Dat leek me al wel duidelijk.
Wat is foto.text in je voorbeeld? Een textbox?

filecopy("C:\foto\" & foto.text, "C:\contact direct\afbeeldingen\" & foto.text)

Overigens is de code van JoZ1 netter, want zo wordt het in de nieuwe Visual Studio gebruikt.

 

[bonnowagt]

Hoi,

Ik heb de code uitgeprobeerd en uiteindelijk moest ik iets strippen, zie de code hieronder:

  Foto.Text = openfile.FileName
            Foto1.Text = (Path.GetFileName(Foto.Text))
                       
            FileCopy(Foto.Text, "C:\contact direct\afbeeldingen\" & FOTO1.Text)

Het werkt nu prima, bedankt

 

[JoZ1]

Prima, zet je de vraag op 'opgelost'?