Changer de répertoire
alex734
Messages postés
1
Date d'inscription
mardi 4 avril 2006
Statut
Membre
Dernière intervention
9 mai 2006
-
9 mai 2006 à 16:02
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 9 mai 2006 à 22:33
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 9 mai 2006 à 22:33
A voir également:
- Changer de répertoire
- Vba changer couleur cellule - Forum Visual Basic 6
- Changer langue visual studio - Forum Visual Basic 6
- Chang a créé son profil sur un forum, en renseignant comme adresse électronique : chang[arobase]pixmail.org pourquoi a-t-il écrit son adresse de cette manière ? - Forum PHP
- Changement de repere ✓ - Forum Visual Basic
- Notepad++ changer police - Forum Visual Basic
3 réponses
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
130
9 mai 2006 à 17:17
9 mai 2006 à 17:17
voir ma source de copie de fichier par exemple
_
Avant de poster dans le forum,
prière d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx
<s></s>
_
Avant de poster dans le forum,
prière d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx
<s></s>
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
9 mai 2006 à 21:29
9 mai 2006 à 21:29
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
9 mai 2006 à 22:33
9 mai 2006 à 22:33
Bonsoir,
En VB, comme précisé par "DarkSidious" et "econs", méthode FileCopy.
Autre alternative, avec même résultat escompté, méthode Fso.
Exemple:
Dim fso, wInput, wOutput
wInput = "d:\test1\*"
wOutput = "d:\test2"
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(wOutput) Then
Set f = fso.CreateFolder(wOutput)
MsgBox "Création du dossier "&f&" effectuée.",vbInformation
fso.CopyFile wInput, wOutput
MsgBox "les fichiers du répertoire " & wInput & " ont été copiés dans le répertoire " & wOutput
Else
msgBox "Attention:"&vbCrLf&"Le répertoire "&wInput&" existe déjà."&vbCrLf&"Les nouveaux fichiers ne sont donc pas archivés",vbCritical
End If
Set fso = Nothing
En VB, comme précisé par "DarkSidious" et "econs", méthode FileCopy.
Autre alternative, avec même résultat escompté, méthode Fso.
Exemple:
Dim fso, wInput, wOutput
wInput = "d:\test1\*"
wOutput = "d:\test2"
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(wOutput) Then
Set f = fso.CreateFolder(wOutput)
MsgBox "Création du dossier "&f&" effectuée.",vbInformation
fso.CopyFile wInput, wOutput
MsgBox "les fichiers du répertoire " & wInput & " ont été copiés dans le répertoire " & wOutput
Else
msgBox "Attention:"&vbCrLf&"Le répertoire "&wInput&" existe déjà."&vbCrLf&"Les nouveaux fichiers ne sont donc pas archivés",vbCritical
End If
Set fso = Nothing
