Discussion :

[Cachlab]

Bonjour,

J'ai un souci incompréhensible ...
Mon script test l'existence d'un répertoire et le supprime.
Pourtant j'arrive à avoir une erreur lors de la tentative de suppression :

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
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
StrComputer = wscript.arguments(0)
 
RepName = "\\" & StrComputer & "\c$\Documents and Settings\"
 
		For i = 1 TO 99999
 
			if i > 0 and i < 10 then RepPath = RepName & "a0000" & i
			if i > 9 and i < 100 then RepPath = RepName & "a000" & i
			if i > 99 and i < 1000 then RepPath = RepName & "a00" & i
			if i > 999 and i < 10000 then RepPath = RepName & "a0" & i
			if i > 9999 and i < 100000 then RepPath = RepName & "a" & i
 
		If oFSO.FolderExists(RepPath) = True Then oFSO.DeleteFolder RepPath, True
		Next

Ligne : 15
Caract. : 45
Erreur : chemin d'accès introuvable
Code : 800A004C

Je n'arrive pas à comprendre l'origine du souci ... LCase, Ucase, format de ma variable RepName ... ???
Comment ce répertoire peut-il exister et ne pas exister ?

[ProgElecT]

Salut

Code :

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

		If oFSO.FolderExists(RepPath) = True Then oFSO.DeleteFolder(RepPath), True

Il me semble bien que les parenthèses soient nécessaires

[Cachlab]

Salut ProgElecT !

C'était une bonne idée, mais non, désolé, j'obtiens la même erreur ...

[pitchalov]

Salut,

Tout d'abord, ta boucle serait plus simple comme cela (sans les 4 tests) :

Code :

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

1
2
3
4
5
For i = 1 TO 99999
 
	RepPath = RepName & "a" & Right("0000" & i, 5)
	If oFSO.FolderExists(RepPath) Then oFSO.DeleteFolder RepPath, True
Next

Sinon, le message d'erreur est effectivement bizarre, vu que tu testes l'existence du répertoire avant la suppression.

As-tu essayé en mettant des guillemets autour de ta chaine?

Code :

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

RepPath = """" & RepPath & """"

Ou de mettre un antislash à la fin de la chaine?

Code :

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

RepPath = RepPath & "\"

Bonne continuation.

[Cachlab]

Salut pitchalov !

D'abord merci de ta réponse.
Je vais tester dès que possible, mais pour l'instant je redescends une image sur mon pc de test ...
(bon j'avoue je le malmène ... mais il est là pour ça !)
J'ai l'impression que c'est le système qui plante, plus que mon code vbs en fait.
Je vous tiens au courant !

En tous cas :

Code :

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

RepPath = RepName & "a" & Right("0000" & i, 5)

Ça me plait beaucoup !
C'est bien plus joli et beaucoup plus efficace.

(Moi j'en suis encore au stade "Si ça marche, c'est déjà pas mal !" )

[omen999]

il ne faut pas toujours prendre à la lettre le param Caract. n dans le message d'erreur renvoyé par wsh
comme la ligne 15 teste à la fois l'existence du fichier et cherche à le supprimer, je décomposerais cette ligne pour lever le doute, folderexist n'est pas toujours robuste ...
et quel est ton os ?
il est possible qu'ils soient protégés à partir de vista ou wk2003