filesystemobject

**rob2-9** · 10/01/2006, 12h40

bonjour,
je voulais savoir comment dire :
"si il existe des fichiers als ..." pour que mon code fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
            'Copie les fichiers de l'ancien répertoire vers le nouveau.
            Dim fso As FileSystemObject
            MsgBox "a"
            Set fso = New FileSystemObject
            If fso...................................... Then
            fso.CopyFolder "Dir1.Path", "chemin", True
            End If
            Set fso = Nothing
            'Supprime l'ancien répertoire.
            Dim fso2 As FileSystemObject
            Set fso2 = New FileSystemObject
            'La valeur True passée au deuxième paramètre permet de supprimer le répertoire dans le cas où il aurait l'attribut lecture seule.
            'Ce paramètre est optionnel, et a la valeur False par défaut.
            fso2.DeleteFolder "chemin", True
            Set fso2 = Nothing

**calimero91** · 10/01/2006, 12h46

il faut que tu fasse une boucle de recherche sur les fichier FSO avant de faire ton if

**rob2-9** · 10/01/2006, 12h47

oui mais je ne vois pas comment la faire
merci pour l'aide

**calimero91** · 10/01/2006, 12h54

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
PathName = File1.Path + "\"
PathFileName = PathName & "*.vsd"
 
'trouve le premier fichier du répertoire
CurrFileName = Dir(PathFileName)
 
Do While CurrFileName <> ""
If (Not (CurrFileName Like "macro*.vsd") And CurrFileName Like "#####*") Then
 
ici tu fait ce que tu ve
 
loop

voila un bout de code qui devrait t'aider.je l'utiliser pour retrouver les *.vsd dans un repertoire.

a toi d'adapter a ce qu'il te faut.

**rob2-9** · 10/01/2006, 13h05

ça me mets que CurrFileName n'est pas une variable définie
que dois-je faire ?

**jmfmarques** · 10/01/2006, 14h05

C'est que tu as peut-être choisi l'option explicit !!!
Il te suffit dans ce cas de définir la variable CurrFileName.

**rob2-9** · 10/01/2006, 14h15

c'est ce que j'ai fait mais en fait il n'y a pa de copie de fichiers

**jmfmarques** · 10/01/2006, 14h38

As-tu encore le message disant que CurrFineName n'est pas une variable définié ??? Tu ne nous en parles plus !

Si tu n'as plus ce message mais que "la copie ne se fait pas", c'est du côté des attributs de fichier qu'il convient de chercher...

Pour lire un fichier normalement (et donc le copier), il faut qu'il soit lisible et donc visible (attribut VBNormal). Tu dois pouvoir gérer tout celà avec GetAttr et SetAttr...

**rob2-9** · 10/01/2006, 14h43

non ce message a disparu mais maintenant je vois que le copie des fichiers ne se fait pas.
mon code est le suivant peut-être que j'ai des fautes dedans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
            'Copie les fichiers de l'ancien répertoire vers le nouveau.
            Dim fso As FileSystemObject
            MsgBox "a"
            Do While CurrFileName <> ""
            Set fso = New FileSystemObject
 MsgBox "1"
            fso.CopyFolder "Dir1.Path", "chemin", True
 MsgBox "2"
            Loop
            Set fso = Nothing
            'Supprime l'ancien répertoire.
            Dim fso2 As FileSystemObject
            Set fso2 = New FileSystemObject
            'La valeur True passée au deuxième paramètre permet de supprimer le répertoire dans le cas où il aurait l'attribut lecture seule.
            'Ce paramètre est optionnel, et a la valeur False par défaut.
            fso2.DeleteFolder "chemin", True
            Set fso2 = Nothing

j'ai mis des messages box pr voir ou est le problème
en fait je ne vois que MsgBox "a"

**jmfmarques** · 10/01/2006, 14h47

Bon !

Mais où as-tu mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CurrFileName = Dir(PathFileName)

Que je ne vois plus !!!!

**rob2-9** · 10/01/2006, 14h50

à quoi sert CurrFileName et où doit-on le placer ?
js suis perdu

**jmfmarques** · 10/01/2006, 14h58

oh !!!!

Bon ! je reprends ton dode en plaçant Currfilename où il faut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
PathName = File1.Path + "\" 
PathFileName = PathName & "*.vsd" 
 
CurrFileName = Dir(PathFileName) 
Dim fso As FileSystemObject 
            MsgBox "a" 
            Do While CurrFileName <> "" 
            Set fso = New FileSystemObject 
 MsgBox "1" 
            fso.CopyFolder "Dir1.Path", "chemin", True 
 MsgBox "2" 
            Loop 
            Set fso = Nothing 
            'Supprime l'ancien répertoire. 
            Dim fso2 As FileSystemObject 
            Set fso2 = New FileSystemObject 
            'La valeur True passée au deuxième paramètre permet de supprimer le répertoire dans le cas où il aurait l'attribut lecture seule. 
            'Ce paramètre est optionnel, et a la valeur False par défaut. 
            fso2.DeleteFolder "chemin", True 
            Set fso2 = Nothing

Tu iras plus loin que Msgbox "a" mais celà ne changera toutefois rien à ce que j'ai dit à propos des attributs

**rob2-9** · 10/01/2006, 15h05

à sert ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
PathName = File1.Path + "\" 
PathFileName = PathName & "*.vsd"

et est-ce que cela s'applique lorsque l'on ne connaît pas le nom des fichiers (je pense à File1) ?
désolé je suis novice du vb

**jmfmarques** · 10/01/2006, 15h16

File1.Path est tout simplement le fichier choisi dans la FilelistBox.

Ouh la la !!

je crois que cette conversation sera sans fin si tu ne commences pas par apprendre le commencement.

Tu as des exemples de VB sur ce sujet. Ils sont complets. Lis-les d'abord et nous verrons ensuite !

**rob2-9** · 10/01/2006, 15h20

où je peux les trouver ?

**jmfmarques** · 10/01/2006, 15h26

Si tu possèdes VB (nous en ignorons la version), cherche parmi les exemples du répertoire "Samples" (ou "Exemples" selon que ta version nest anglaise ou française). Chez moi, il y a, par exemple, l'exemple de projet FileCts.

**rob2-9** · 10/01/2006, 15h28

j'ai vb6.0
est-ce que je dois trouver cela dans msdn ? si oui mon patron ne les a pa installés et comme je suis seul aujourd'hui ...

**calimero91** · 10/01/2006, 15h37

commence par la FAQ VB et par les tutoriaux disponoble sur ce site

**rob2-9** · 11/01/2006, 14h44

Bonjour,
j'ai travaillé sur les copies et suppressions de fichiers, seulement j'ai encore 2 problèmes puisque je n'arrive n'y à copier ni à supprimer. est-ce que quelqu'un pourrait me dire où se trouvent les erreurs s'il-vous-plaît.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 If MsgBox("le répertoire " & MakeLongFileName(strdoc, strLibelléClientForRep) & vbCrLf & " pour la gestion des documents client n'existe pas," & vbCrLf & "voulez-vous le créer?", vbQuestion + vbYesNo, "Paramétrage") = vbYes Then
           'Dim chemin As String
            MkDir (MakeLongFileName(strdoc, Trim$(strLibelléClientForRep)))
            Dir1.Path = (MakeLongFileName(strdoc, Trim$(strLibelléClientForRep)))
            'Je rafraîchis l'arborescence
            Dir1.Refresh
            'Le chemin se positonne
            Dir1.Path = (MakeLongFileName(strdoc, Trim$(strLibelléClientForRep)))
            txtDocument.Text = Dir1.Path
 
'les problèmes viennent d'ici
            'Copie les fichiers de l'ancien répertoire vers le nouveau.
            Dim PathName As String
            Dim PathFileName As String
            Dim CurrFileName As String
            MsgBox chemin
            MsgBox Dir1.Path
            PathName = File1.Path + "\"
            PathFileName = PathName & "*.vsd"
            Dim fso As FileSystemObject
            MsgBox "a"
             CurrFileName = Dir(PathFileName)
            Do While CurrFileName <> ""
                Set fso = New FileSystemObject
                MsgBox "1"
                fso.CopyFolder "Dir1.Path", "chemin", True
                MsgBox "2"
            Loop
            Set fso = Nothing
            'Supprime l'ancien répertoire.
            Dim fso2 As FileSystemObject
            Set fso2 = New FileSystemObject
            MsgBox "3"
            'La valeur True passée au deuxième paramètre permet de supprimer le répertoire dans le cas où il aurait l'attribut lecture seule.
            'Ce paramètre est optionnel, et a la valeur False par défaut.
            fso2.DeleteFolder "chemin", True
            MsgBox "4"
            Set fso2 = Nothing
            MsgBox "5"

merci beaucoup

**SfJ5Rpw8** · 11/01/2006, 14h51

en 1° lecture :
pourquoi mais tu les noms de variables entre " :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fso.CopyFolder "Dir1.Path", "chemin", True

as tu besoin de créer un nouvel objet fso à chaque copie .. :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

     Set fso = New FileSystemObject

filesystemobject

VB 6 et antérieur

Vue hybride

Discussions similaires

Partager

Partager