Copie de plusieurs fichiers par FileCopy
fred
-
15 nov. 2001 à 00:04
cs_DAN Messages postés 20 Date d'inscription mardi 29 janvier 2002 Statut Membre Dernière intervention 5 juillet 2003 - 14 mars 2002 à 03:45
cs_DAN Messages postés 20 Date d'inscription mardi 29 janvier 2002 Statut Membre Dernière intervention 5 juillet 2003 - 14 mars 2002 à 03:45
A voir également:
- Vb6 filecopy
- Vb6 wait ✓ - Forum Visual Basic 6
- Vb6 windows 10 ✓ - Forum Visual Basic 6
- Vb6 instr ✓ - Forum VB.NET
- Vba filecopy permission refusée - Forum Visual Basic
- Vb6 mid ✓ - Forum Visual Basic
4 réponses
tu mets une fileBox sur ta form (ke tu peux cacher si tu veux)
tu fais
dim Chemin as string
FileBox.Path = ReprtoireSource
if right$(filebox.path,1)<>"" then
Chemin = filebox.path & ""
else
Chemin = filebox.path
end if
for i=0 to FileBox.ListCount -1
filecopy Chemin & filebox.list(i) RepertoireDestination & filebox.list(i)
et voilà !
de rien
tu fais
dim Chemin as string
FileBox.Path = ReprtoireSource
if right$(filebox.path,1)<>"" then
Chemin = filebox.path & ""
else
Chemin = filebox.path
end if
for i=0 to FileBox.ListCount -1
filecopy Chemin & filebox.list(i) RepertoireDestination & filebox.list(i)
et voilà !
de rien
J'ai essayé ton code:
If Right$(FileBox.Path, 1) <> "" Then
cheminS = FileBox.Path & ""
Else
cheminS = FileBox.Path
End If
cheminD = TEMP
For i = 0 To FileBox.ListCount - 1
FileCopy cheminS & filebox.list(i) cheminD & filebox.list(i)
ChDir TEMP
Shell TEMP & "tifo.bat", 1
TEMP est la variable qui stocke le chemin du repertoire
de destination
OR ce code plante sur la ligne FilaCOpy cheminS... erreur de
synthaxe????????
If Right$(FileBox.Path, 1) <> "" Then
cheminS = FileBox.Path & ""
Else
cheminS = FileBox.Path
End If
cheminD = TEMP
For i = 0 To FileBox.ListCount - 1
FileCopy cheminS & filebox.list(i) cheminD & filebox.list(i)
ChDir TEMP
Shell TEMP & "tifo.bat", 1
TEMP est la variable qui stocke le chemin du repertoire
de destination
OR ce code plante sur la ligne FilaCOpy cheminS... erreur de
synthaxe????????
cs_DAN
Messages postés
20
Date d'inscription
mardi 29 janvier 2002
Statut
Membre
Dernière intervention
5 juillet 2003
22 févr. 2002 à 03:39
22 févr. 2002 à 03:39
:) Voici la maniere de filecopy pour plusieure fichier :)
tu met un filebox avec nom: filebox
moi ca marche tres bien chex moi
looooooooooooooooooooooooool
8-) DAN
8-)
Dim Chemin As String filebox.Path = "C:\ton repertoire source" If Right$(filebox.Path, 1) <> "" Then Chemin = filebox.Path & "" Else Chemin = filebox.Path End If For i = 0 To filebox.ListCount - 1 FileCopy Chemin & filebox.List(i), "C:\ton repertoire destination" & filebox.List(i) Next i
tu met un filebox avec nom: filebox
moi ca marche tres bien chex moi
looooooooooooooooooooooooool
8-) DAN
8-)
cs_DAN
Messages postés
20
Date d'inscription
mardi 29 janvier 2002
Statut
Membre
Dernière intervention
5 juillet 2003
14 mars 2002 à 03:45
14 mars 2002 à 03:45
la meme procedure que d'abitude
tu mets une fileBox sur ta form (ke tu peux cacher si tu veux)
source:
Dim Chemin As String
filebox.Path = "C:\ton repertoire source"
If Right$(filebox.Path, 1) <> "" Then Chemin = filebox.Path & ""
Else
Chemin = filebox.Path
End If
For i = 0 To filebox.ListCount - 1
FileCopy Chemin & filebox.List(i), "C:\ton repertoir de destination" & filebox.List(i)
Next i
DAN
tu mets une fileBox sur ta form (ke tu peux cacher si tu veux)
source:
Dim Chemin As String
filebox.Path = "C:\ton repertoire source"
If Right$(filebox.Path, 1) <> "" Then Chemin = filebox.Path & ""
Else
Chemin = filebox.Path
End If
For i = 0 To filebox.ListCount - 1
FileCopy Chemin & filebox.List(i), "C:\ton repertoir de destination" & filebox.List(i)
Next i
DAN
