Discussion :

[ben___]

Bonjour,
J'ai créé un script qui récupere le chemin d'un dossier de travail créé par la suite un sous dossier workfolder et par la suite renomme par uen variable aléatoire les fichiers présent dans le dossier vers le dossier workfolder.

C'est cette dernière partie qui me pose problème (un truc tt bête je suis sur mais manque de recul par rapport à ça ) ou le script me ressort un fichier introuvable à tout les coups

Voici le code de la partie qui pose problème

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
set objDossier=FSO.GetFolder(fol)
For Each objFichier in objDossier.Files
 
	'Créer une valeur aléatoire
		Dim Alea1 , Alea2, fol
		Randomize
		Alea1 = int (Rnd * 100)
		Alea2 = int (Rnd * 999)
		NewName= "IMG_" & Alea1 & Alea2
	'msgbox "" & NewName		
		FSO.CopyFile objDossier & objFichier.Name , (fol & "\WorkFolder") & NewName
 
Next

[ProgElecT]

Code :

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

'msgbox "" & NewName

Essais aussi sur objDossier il est possible qu'il te manque le \

[l_autodidacte]

FSO.CopyFile objDossier & objFichier.Name , (fol & "\WorkFolder") & NewName

Que représente fol dans cette expression ?(déjà défini 2 fois)

Tu devrais peut-être lui affecter quelque chose !?
Voici une esquisse :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
fol="C:\tmp\"
Set FSO=CreateObject("Scripting.FileSystemObject")
set objDossier=FSO.GetFolder(fol)
For Each objFichier in objDossier.Files
 
	'Créer une valeur aléatoire
		Dim Alea1 , Alea2 ', fol
		Randomize
		Alea1 = int (Rnd * 100)
		Alea2 = int (Rnd * 999)
		NewName= "IMG_" & Alea1 & Alea2
	'msgbox "" & NewName		
   objFichier.Copy  (fol & "WorkFolder\") & NewName , true
Next

[ben___]

@ProgElect
LA msgbox sur le objdossier m'affiche bien le bon dossier ou je récupère mes fichiers

@l_autodidacte
Comme je l'ai indiqué il s'agit d'un bout de mon script, fol est un variable qui récupère un chemin donné auparavant. Si tu veux un msgbox auparavant m'affiche ce dernier avec le chemin complet que je lui ai rentré
Sinon ton idée était bonne il manquait juste un \ pour que ce soit ok

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
For Each objFichier in objDossier.Files
 
	'Créer une valeur aléatoire
		Dim Alea1 , Alea2, fol
		Randomize
		Alea1 = int (Rnd * 100)
		Alea2 = int (Rnd * 999)
		NewName= "IMG_" & Alea1 & Alea2
	'msgbox "" & NewName	
	'msgbox "objdossier: " & objDossier
'Copie des fichiers dans le dossier objdossier\workfolder avec pour nom IMG_XXXX
		objFichier.Copy  (objDossier & "\WorkFolder\") & NewName , true
 
Next

Maintenant il faut que je split tout ça pour ne pas perdre l'extension.... Si qqu1 à une idée plus facile/rapide que le split jusqu'au "." et ne renommer que la partie gauche

Edit voici ce que j'ai intégrer, c'est très rapide:

Code :

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

1
2
3
	MyTab = split(objFichier.Name,".")
	NewName = MyTab (0)
	Extens = MyTab (1)

[l_autodidacte]

Salut;

Il suffira de faire appel à une fonction au lieu de déclarer un tableau :

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
fol="C:\tmp\"
Set FSO=CreateObject("Scripting.FileSystemObject")
set objDossier=FSO.GetFolder(fol)
For Each objFichier in objDossier.Files
 
	'Créer une valeur aléatoire
		Dim Alea1 , Alea2 ', fol
		Randomize
		Alea1 = int (Rnd * 100)
		Alea2 = int (Rnd * 999)
		NewName= "IMG_" & Alea1 & Alea2 & "." & Extension(objFichier)
	'msgbox "" & NewName		
   objFichier.Copy  (fol & "WorkFolder\") & NewName,true
Next
 
  Function Extension(Fich)
    Extension=Right(Fich,Len(Fich)-InstrRev(Fich,"."))
  End Function