Calimoino
Messages postés10Date d'inscriptionmardi 24 décembre 2002StatutMembreDernière intervention21 août 2003
-
19 août 2003 à 01:47
Tilois
Messages postés721Date d'inscriptiondimanche 10 juin 2001StatutMembreDernière intervention27 mars 2011
-
5 sept. 2003 à 10:47
au lieu de e:\saves\ je voudrais mettre une deuxieme variable. ( text2.Text )
mon probleme c'est que je ne sais pas comment je peu mettre 2 variables a la suite :(
crenaud76
Messages postés4172Date d'inscriptionmercredi 30 juillet 2003StatutMembreDernière intervention 9 juin 200628 19 août 2003 à 02:19
Shell ("C:\Winnt\system32\cmd.exe /C copy " & Text1.Text & " " & Text2.Text)
ET le FileCopy, t'en veux vraiment pas, C'est plus jolie et plus efficace que ton Shell() ?
FileCopy text1.text , text2.text
Christophe R.
Calimoino
Messages postés10Date d'inscriptionmardi 24 décembre 2002StatutMembreDernière intervention21 août 2003 19 août 2003 à 02:25
Merci crenaud76 ;)
pour le filecopy
g essayer mais c des dossier que je veu copier et non pas un fichier.
( a moins qu'on puisse copier un dossier avec ?? )
crenaud76
Messages postés4172Date d'inscriptionmercredi 30 juillet 2003StatutMembreDernière intervention 9 juin 200628 19 août 2003 à 02:27
Faisable aec le FileSystemObject normalement. Toujours plus propre qu'avec le Shell(), mais un peu plus complexe cette fois. (3 lignes de code à peu près, mai suis pas un Pro du FSO)
pcpunch
Messages postés1243Date d'inscriptionmardi 7 mai 2002StatutMembreDernière intervention18 février 20195 19 août 2003 à 07:47
voila un code pour copier le contenu d'un dossier :
Dim Dossier_Source As String
Dim Dossier_Destination As String
Dossier_Source = "c:\dossier source"
Dossier_Destination = "c:\temp"
'Si dossier de destination n'existe pas alors on le crée
On Error Resume Next
If Dir(Dossier_Destination) = "" Then MkDir Dossier_Destination
'procedure pour copier les fichiers du dossier
fichier = Dir(Dossier_Source, vbNormal)
Do While fichier <> ""
FileCopy Dossier_Source & fichier, Dossier_Destination & fichier
fichier = Dir()
Loop
Vous n’avez pas trouvé la réponse que vous recherchez ?