Discussion :

[topor]

Bonjour,

Dans un dossier, j'ai un ensemble de sous répertoires et pour certains les noms sont écrit avec un mélange de majuscule et de minuscule.
Je voudrais passer tous les noms en majuscule.

Les répertoires existant déjà, je dois (?) passer par un nom intermédiaire pour les renomer, j'ajoute donc un .temp au nom d'orrigine (ligne 38).

Voici ou en est mon script, et je bloque sur la ligne 40 qui me retourne l'erreur 800A0005, argument ou appel de procédure incorrect ...

Pouvez vous me donner un coup de main? C'est certainement assez trivial, mais je ne trouve pas!
Merci d'avance

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
option explicit
dim FSO, objShell
dim obFolder, obFolder2, obSubFolder, SubFolderName
dim SubFolderPath, UCaseName, NewFolderName, FD, FName
 
'Get Application object of the Windows shell.
	Set objShell = WScript.CreateObject("Shell.Application")
 
'Ask the user to select a folder
	Set FSO = CreateObject("Scripting.FileSystemObject")
	Set obFolder = objShell.BrowseForFolder (&H0&, "Select the folder to process", &H1&) ' Var obFolder
	'Keep obFolder for sub programms
	Set obFolder2 = obFolder
 
If NOT obFolder IS Nothing Then
 
	CheckRepSondage FSO, obFolder.Self.Path
 
 
	MsgBox "Finished"
 
Else
 
	MsgBox "Canceled"
 
End If
 
 
Sub CheckRepSondage (FSO, FolderPath)
	Set obFolder = FSO.GetFolder(FolderPath)
	For Each obSubFolder In FSO.GetFolder(obFolder).SubFolders
		'Prend le chemin du rep
		SubFolderPath = obSubFolder.Path
		'Met le chemin en majuscules
		UCaseName = UCase (SubFolderPath)
		Set FD = FSO.GetFolder(obSubFolder)
		'Ajoute .temp au chemin
		FName = UCaseName & ".temp"
		'Renome le répertoire
		FD.Name = FName
 
	Next
End Sub

[tsuji]

La réponse courte est que SubFolderPath n'est pas un nom d'un fichier, il est le chemin contenant tout (:, \) qui ne sont pas permis et d'ailleurs pas du tout l'intention ce qu'on cherche à faire.

Code :

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

1
2
		'SubFolderPath = obSubFolder.Path    'ligne #33
		SubFolderPath = obSubFolder.Name

La réponse longue est qu'il me semble on crée à maintes reprises la même chose qui a l'effet de donner le script très confus... Il n'est pas nécessaire de créer et recréer subfolder...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub CheckRepSondage (FSO, FolderPath)
	dim obFolder, obSubFolder, SubFolderName, UCaseName, FName
	Set obFolder = FSO.GetFolder(FolderPath)
	For Each obSubFolder In obFolder.SubFolders
		SubFolderName = obSubFolder.Name 
		'Met le chemin en majuscules
		UCaseName = UCase (SubFolderName)
		FName = UCaseName & ".temp"
		'Renome le répertoire
		obSubFolder.Name = FName
 		'Renome encore
		obSubFolder.Name=UCaseName
 	Next
End Sub

Comme ça au moins il me semble plus simple et plus clair au même temps.

[topor]

Tsuji,

Je me doutais bien que c’était quelque chose du genre! et je te remercie pour ton aide précieuse et efficace. De plus ta réponse devrais ... normalement m'être utile pour la suite de mon développement. Je t'en suis donc d'autant plus reconnaissant.

Je suis un débutant et de plus cela fait plus d'un an environ que je n'ai rien écrit!

J'avoue avoir pas mal de problème avec le FSO et, si c'est bien le le nom!!!, l'imbrication des commandes.

Encore Merci

[tsuji]

J'ai oublié d'éliminer FD en la remplaçant par obSubFolder dans la réécriture de la fonction en modifiant l'originale. J'ai edité mon message pour ne pas confuser les lecteurs ! Merci pour l'attention...

[topor]

oui, j'avais noté cela. Je viens également de tester ta nouvelle version qui fonctionne également très bien.
Merci