Name AS avec espace

**prodi_64** · 10/03/2008, 13h48

Bonjour,

j'ai des noms de répertoires que je dois renommer. Le pb, c'est que le nom initial comporte des espaces. Du coup, il me répond que j'ai un pb dans le chemin d'accès au répertoire en question.

Quelle manip me peremttrait de renommer ce répertoire?

merci

**OhMonBato** · 10/03/2008, 14h31

C'est qui "il" ?
Tu peux nous montrer ton code stp ?

**ucfoutu** · 10/03/2008, 14h42

Bonjour,

Je crois, prodi 64 , que tu tires tes conclusions trop rapidement ! (pas bon en développement, de tirer des conclusions hatives !!!)

Ce n'est pas l'espace, qui est responsable, mais autre chose ou une conjugaison d'autres choses ...

Tu en veux la preuve ?

La voilà :

Tu crées un répertoire c:\a aa

puis lu lances ce code :

Code :

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

1
2
3
Private Sub Command1_Click()
  Name "c:\a aa" As "c:\a ab"
End Sub

Alors ? Il y a bien un espace dans les deux noms, pourtant, hein ?...

**prodi_64** · 10/03/2008, 15h19

Bonjour,

je confirme votre impression, ce n'est pas dû à l'espace dans le nom.

Mon code est un peu long mais, je renomme le répertoire avec des veleurs tirées d'un fichier Excel. La syntaxe de renommage se présente ainsi :

Code :

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

1
2
3
4
5
 
Debug.Print (Dir1.List(l) & " As " & dossier & "\" & f.Cells(i, CInt(repertoire.Text)).Value)
    anc_dos = Dir1.List(l)
    nv_dos = dossier & "\" & f.Cells(i, CInt(repertoire.Text)).Value
    Name anc_dos As nv_dos

Le debug.print au départ est tout à fait bon, il me donne les bons chemin d'accès...

**OhMonBato** · 10/03/2008, 15h29

Quel est le code / message d'erreur exact que tu as ?

**ucfoutu** · 10/03/2008, 15h30

Trop de choses restent ici inconnues :

1) on aimerait bien voir les textes exacts affichés au debug.print (chemin complet de l'anvien fichier et chemin complet du nouveau fichier)

Je te rappelle que les deux doivent être sur le même lecteur (voir ton aide en ligne à ce propos

2) je te rappelle également (à tout hasard) que Name as ne peut s'appliquer à un fichier en cours d'ouverture (ouvert)

Et on ne sait rien de ces choses essentielles, dont tu ne nous parles pas du tout...

**OhMonBato** · 10/03/2008, 15h34

C'est un peu pour ça que je posais la question, car je pense que prodi cherche à renommer le répertoire contenant le fichier Excel qui est ouvert et là effectivement, ça ne va pas marcher.

**prodi_64** · 10/03/2008, 15h36

Le message d'erreur 75 est : Erreur dans le chemin d'accès

Voici le résultat du Debug :
F:\run01\2MI1188 As F:\run01\MARTRE_LA_3PP965

Normalement les fichiers seront sur le réseau et non sur le disque local. Mais j'ai essayé de les mettre sur une partition locale pour tester et ça marche pas non plus.

Les fichiers ne sont pas ouverts. Ils sont placés dans une FileList car eux aussi sont renommés. Une fois qu'ils sont renommés, je souhaite renommer le répertoire parent et c'est là que j'ai un pb.

S'il vous fait d'autres éléments, pas de pb...

Voici un bout du code plus exhaustif :

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
40
41
Set dossier = fso.GetFolder(source.Text)
Dir1.Path = dossier
l = 0
Do While l < Dir1.ListCount
    sousdossier = Dir1.List(l)
    nomdos = Split(sousdossier, "\")
    While UCase(f.Cells(i, CInt(cote.Text)).Value) <> UCase(nomdos(UBound(nomdos))) Or f.Cells(i, CInt(cote.Text)).Value = ""
    Debug.Print UCase(nomdos(UBound(nomdos)))
        i = i + 1
    Wend
    inc = deb_inc.Text
    nb = 0
    File1.Path = sousdossier
    For j = 0 To File1.ListCount - 1
        increment = ""
        For k = Len(inc) To CInt(digits.Text) - 1
            increment = increment & "0"
        Next
        increment = increment & inc
        DoEvents
        antenomf = File1.List(j)
        nomf = f.Cells(i, CInt(fiche.Text)).Value & "_" & increment & "." & Split(antenomf, ".")(1)
        Name sousdossier & "\" & antenomf As sousdossier & "\" & nomf
        Debug.Print ("Name " & antenomf & " As " & sousdossier & "\" & nomf)
        If Dir(sousdossier & "\" & nomf, vbHidden) = "" Then
            MonFic.WriteLine ("PB sur renommage du fichier " & sousdossier & "\" & antenomf)
        End If
        nb = nb + 1
        inc = inc + 1
    Next
    sousdossier = Dir1.List(l + 1)
    'renommage cote
    Debug.Print (Dir1.List(l) & " As " & dossier & "\" & f.Cells(i, CInt(repertoire.Text)).Value)
    anc_dos = Dir1.List(l)
    nv_dos = dossier & "\" & f.Cells(i, CInt(repertoire.Text)).Value
    Name anc_dos As nv_dos
    If Dir(dossier & "\" & f.Cells(i, CInt(repertoire.Text)).Value) = "" Then
        MonFic.WriteLine ("PB sur renommage du réperoire " & Dir1.List(l))
    End If
    l = l + 1
Loop

**ucfoutu** · 10/03/2008, 15h39

C'est drôle, tiens ...

Moi je vois un répertoire ouvert avec FSO !!!

**prodi_64** · 10/03/2008, 15h43

Avec des commentaires c'est mieux :

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
40
41
42
43
44
45
46
47
48
49
50
51
Set dossier = fso.GetFolder(source.Text)
Dir1.Path = dossier
l = 0
'parcours de la liste de répertoires à renommer
Do While l < Dir1.ListCount
    sousdossier = Dir1.List(l)
    nomdos = Split(sousdossier, "\")
    'recherche dans l'execl de la ligne correpondant au répertoire en question
    While UCase(f.Cells(i, CInt(cote.Text)).Value) <> UCase(nomdos(UBound(nomdos))) Or f.Cells(i, CInt(cote.Text)).Value = ""
    Debug.Print UCase(nomdos(UBound(nomdos)))
        i = i + 1
    Wend
    'initialisation de l'incrément et du nombre de fichiers traités
    inc = deb_inc.Text
    nb = 0
    'mise à jour du FileList suivant le répertoire parent en question
    File1.Path = sousdossier
    For j = 0 To File1.ListCount - 1
        'calcul de l'incrément du nom de fichier sur un nombre de digits souhaité
        increment = ""
        For k = Len(inc) To CInt(digits.Text) - 1
            increment = increment & "0"
        Next
        increment = increment & inc
        DoEvents
        'renommage des fichiers avec le prefixe dans execl et l'incrément calculé
        antenomf = File1.List(j)
        nomf = f.Cells(i, CInt(fiche.Text)).Value & "_" & increment & "." & Split(antenomf, ".")(1)
        Name sousdossier & "\" & antenomf As sousdossier & "\" & nomf
        Debug.Print ("Name " & antenomf & " As " & sousdossier & "\" & nomf)
        'verification de l'existence dui nouveau nom de fichier
        If Dir(sousdossier & "\" & nomf, vbHidden) = "" Then
            MonFic.WriteLine ("PB sur renommage du fichier " & sousdossier & "\" & antenomf)
        End If
        'mise à jour de l'incrément et du compteur de fichiers
        nb = nb + 1
        inc = inc + 1
    Next
    sousdossier = Dir1.List(l + 1)
    'renommage répertoire
    Debug.Print (Dir1.List(l) & " As " & dossier & "\" & f.Cells(i, CInt(repertoire.Text)).Value)
    anc_dos = Dir1.List(l)
    nv_dos = dossier & "\" & f.Cells(i, CInt(repertoire.Text)).Value
    Name anc_dos As nv_dos
    'verification du renommage du repertoire
    If Dir(dossier & "\" & f.Cells(i, CInt(repertoire.Text)).Value) = "" Then
        MonFic.WriteLine ("PB sur renommage du réperoire " & Dir1.List(l))
    End If
    'passage au répertoire suivant
    l = l + 1
Loop

**prodi_64** · 10/03/2008, 15h44

Ce répertoire est le répertoire racine il n'est pas à renommer. ce sont seulement ses sous-dossiers qui le seront...

**prodi_64** · 10/03/2008, 16h49

Qq'un a une idée?

**OhMonBato** · 10/03/2008, 17h03

As tu fais l'essai sans utiliser fso ?

**prodi_64** · 10/03/2008, 17h12

Oui j'ai changé la ligne Set dossier = fso.GetFolder(source.Text) par dossier=source.text

et ç'est pareil...

**OhMonBato** · 10/03/2008, 17h32

Bon, j'avoue être un peu paumé mais je reste persuadé qu'il y a quelquechose d'ouvert.
Pour essai, peux tu mettre un point d'arrêt au début de ta procédure de renommage et essaye de renommer manuellement sous l'explorateur de fichier un de tes répertoires.
1/ Si ça coince c'est que l'origine du problème se trouve en amont
2/ Si ça coince pas, avance ligne à ligne (ou quasi) et fais à chaque fois un essai manuel de renommage.

**ucfoutu** · 10/03/2008, 17h36

Excuse-moi, mais quand je lis :

Code :

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

 MonFic.WriteLine ("PB sur renommage du fichier " & sousdossier & "\" & antenomf)

Je me dis (je suis fou) que tu écris ou peux écrire dans un fichier.
Je me dis qu'un fichier est donc ouvert
Je me dis enfin que si ce fichier est dans le répertoire à renommer, le renommage n'est pas possible (on ne peut renommer un répertoire dont un des fichiers est en cours d'utilisation).

**prodi_64** · 10/03/2008, 17h57

Visiblement tu as raison. Quand le prog est arrêté là où il bug, je ne peux pas le renommer manuellement (ressource utilisée par un programme ou une autre personne)

Mais je vois vraiment pas où...

**ucfoutu** · 10/03/2008, 18h04

Hé Hé !

Bon ...

Va donc savoir maintenant à quel moment l'erreur a été commise.
Car si elle a été commise auparavant, même si ton appli a été fermée ==>> tu auras toujours un "drapeau" Windows tant que Windows ne sera pas lui même fermé !

Je te donne le conseil de :

1) fermer Windows
2) redémarrer Windows
3) avant t(oute autre chose : voir si maintenant tu peux renommer manuellement (depuis l'explorateur)
4) si oui : faire gaffe à chacune des lignes de ton code (pour ne pas recommencer...)
5) lancer ton appli
6) aller immédiatement vérifier qu'après ce lancement, tu peux renommer manuellement et :
a) si oui : tu es sorti de ton problème
b) si non : tu as soit un problème de code de ton appli, soit un problème de droits, soit un problèmes d'attribut ...

Bonne recherche et tests...

**prodi_64** · 10/03/2008, 18h14

Ca y est, j'ai trouvé.

J'ai appliqué ta méthode et j'ai vu que cela venait du test d'existence du fichier renommer qui bloquait le répertoire parent.

j'ai donc changer la syntaxe par celle-ci :
If FSys.FileExists(sousdossier & "\" & nomf) Then

et maintenant ça marche.

Merci à tous

Name AS avec espace

VB 6 et antérieur

Discussions similaires

Partager

Partager