Copie fichiers
Michel
-
27 déc. 2000 à 12:59
SElKettani Messages postés 36 Date d'inscription dimanche 2 mars 2008 Statut Membre Dernière intervention 26 février 2010 - 9 mars 2008 à 18:15
SElKettani Messages postés 36 Date d'inscription dimanche 2 mars 2008 Statut Membre Dernière intervention 26 février 2010 - 9 mars 2008 à 18:15
6 réponses
> Une fonction de copie existe native dans VB :
filecopy(Source As String,Destination As String)
En gros ça donne :
FileCopy("C:ACCESS","E:ACCESS")
[Hawk]
filecopy(Source As String,Destination As String)
En gros ça donne :
FileCopy("C:ACCESS","E:ACCESS")
[Hawk]
> Une fonction de copie existe native dans VB :
filecopy(Source As String,Destination As String)
En gros ça donne :
FileCopy("C:ACCESS","E:ACCESS")
[Hawk]
filecopy(Source As String,Destination As String)
En gros ça donne :
FileCopy("C:ACCESS","E:ACCESS")
[Hawk]
Private Sub Copy_Click()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder "c:XXX*", "c:YYY", True
fso.CopyFile "c:XXX*.*", "c:YYY", True
End Sub
Voici une autre possibilité, utilisant FileSystemObject.
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder "c:XXX*", "c:YYY", True
fso.CopyFile "c:XXX*.*", "c:YYY", True
End Sub
Voici une autre possibilité, utilisant FileSystemObject.
Est-ce possible de gerer des variable avec cette methode de FileSystemObject ??? Je precise, l'utilisateur selectionne son fichier a l'aide des controles Drive, Dir et File, et le prog doit copier ce fichier au repertoire racine de l'application !
Donc le fichier et son chemin d'acces sont ds une variable :
chemin = Dir1.Path
If Right(chemin, 1) = "" Then
chemin = chemin & File1.FileName
Else
chemin = chemin & "" & File1.FileName
End If
Vala aidez-moi s'il vous plait !!!!
Donc le fichier et son chemin d'acces sont ds une variable :
chemin = Dir1.Path
If Right(chemin, 1) = "" Then
chemin = chemin & File1.FileName
Else
chemin = chemin & "" & File1.FileName
End If
Vala aidez-moi s'il vous plait !!!!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
SElKettani
Messages postés
36
Date d'inscription
dimanche 2 mars 2008
Statut
Membre
Dernière intervention
26 février 2010
4 mars 2008 à 20:05
4 mars 2008 à 20:05
Bonsoir !
Votre échange m’intéresse. J’ai besoin de copier « vb6.fr.dll » sur
les ordinateur où Vb n’est pas installer pour qu’ils puissent lire automatiquement
une application que j’ai crée. Pour tester la fonction copie sur un bouton
(filecopy(« fichier source », »fichier destination »).
Cela n’a
pas marché.
Said.
Votre échange m’intéresse. J’ai besoin de copier « vb6.fr.dll » sur
les ordinateur où Vb n’est pas installer pour qu’ils puissent lire automatiquement
une application que j’ai crée. Pour tester la fonction copie sur un bouton
(filecopy(« fichier source », »fichier destination »).
Cela n’a
pas marché.
Said.
SElKettani
Messages postés
36
Date d'inscription
dimanche 2 mars 2008
Statut
Membre
Dernière intervention
26 février 2010
9 mars 2008 à 18:15
9 mars 2008 à 18:15
Je réponds
à ma propre question. J’ai résolu le problème partiellement ! J’ai essayé
avec un fichier bat placé dans le fichier autorun qui copie les fichiers dll
vb5 et vb6 dans le répertoire systeme 32 de windows.
Cela
marche bien. Seul petit hic c’est que la fenêtre Ms-Dos apparaît une fraction
de seconde au début.
Said
à ma propre question. J’ai résolu le problème partiellement ! J’ai essayé
avec un fichier bat placé dans le fichier autorun qui copie les fichiers dll
vb5 et vb6 dans le répertoire systeme 32 de windows.
Xcopy /y "F:\FichiersACopier\*.*" "C:\windows\system32"
startApplication
.exe
Cela
marche bien. Seul petit hic c’est que la fenêtre Ms-Dos apparaît une fraction
de seconde au début.
Said