Rechercher et copier un fichier

Question

Bonjour,
est ce que quelqu'un a un morceau de code permettant de chercher un fichier :
monfichier.txt dans le disque dur et de le copier dans un emplacement bien défini, par exemple : C:\Documents and Settings\USER05\Bureau\Destination.

merci d'avance.

le savoir s'agrandit d'autant que l'on partage.

jpleroisse · Answer

Bonjour,

Tu places ce code dans un Module:



Public Sub CopierFichier(Origine As String, Destination As String)

   Dim fs

   Set fs = CreateObject("Scripting.FileSystemObject")

       fs.CopyFile Origine, Destination

   Set fs = Nothing

End Sub



'Dans la Form (ici dans l'exemple dans l'&#233;venement d'un CommandButton)



Private Sub Command1_Click()

CopierFichier "c:\Print.txt", "c:\Mes documents\Print.txt"

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

jpleroisse · Answer

Re, 

Pour ta 2&#232;me question,



Private Sub Command1_Click()

RichTextBox2.Text = RichTextBox1.Text

End Sub

jpleroisse

Rechercher et copier un fichier

2 réponses

Discussions similaires