Renommer un fichier aléatoire vers une valeur fixe

Version imprimable

15/05/2017, 14h15
pascaldu67

Renommer un fichier aléatoire vers une valeur fixe
Bonjour à tous comme vous allez sans doute vous rendre compte je débute en VBS et je bloque sur mon script.

Je m'explique, je souhaite renommer un zip quelconque situé dans un répertoire précis vers une valeur fixe.
Code:

1 2 3 'renommage moteur de scan' Set fso = WScript.CreateObject("Scripting.FileSystemObject") fso.MoveFile ".\moteur\engv_amd64_ntkd_v9800-1009.zip", ".\moteur\tmengX64.zip"
En gros le fichier Zip dans le dossier moteur est aléatoire suivant la version, j'aimerais qu'il se renomme en en tmengX64.zip quelque soit son nom initial.

Merci par avance

Salut

Ce lien --> Comment lister les fichiers d'un dossier ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim stRep 'Nom du répertoire à parcourir
Dim oFSO,oFl
Set oFSO = CreateObject("Scripting.FileSystemObject")
stRep = "C:\PersoFrancis\Tests"  '************************* A toi de mettre le chemin de ton dossier ou le .zip est créé ***************
If oFSO.FolderExists(stRep) Then
 For each oFl in  oFSO.GetFolder(stRep).Files
   if right(ucase(oFl.Name),3)="ZIP" then
        oFl.name = "tmengX64.zip" ' -----> renomage
   end if	
 Next
End If
Set oFSO = nothing

Merci pour votre réponse cela ma bien aidé en revanche lors de la déclaration de la variable stRep, je souhaite même un chemin relatif tel que ".\moteur" car mon script est sur une clé et la lettre de lecteur peut changer. Ci-joint mon script avec erreur sur la déclaration de la variable décrite précédemment.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 'déclaration variable' Dim fso,F1 Dim FichierZip Dim Extraire Dim objShell Dim FilesInZip Dim Dossier 'renommage moteur de scan' Set fso = WScript.CreateObject("Scripting.FileSystemObject") Set Dossier = ".\moteur" If fso.folderExists(dossier) then For each f1 in fso.Getfolder(dossier).Files if right(ucase(f1.name),3)="ZIP" then F1.name = "tmengX64.zip" end if Next End if

Salut

Citation:

car mon script est sur une clé et la lettre de lecteur peut changer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim fso
Dim Lecteur, Dossier, CheminDuDossier
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Dossier = "Tests\moteur\"
 
Lecteur = fso.GetDriveName(WScript.ScriptFullName)
CheminDuDossier = Lecteur & "\" & dossier
If fso.folderExists(CheminDuDossier) then
        MsgBox CheminDuDossier
        else
        MsgBox "pas bon"
end if

merci beaucoup cela fonctionne nickel avec quelques motifs pour utiliser en plus du lecteur un chemin relatif (dsl si j'utilise pas le bon vocabulaire)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'déclaration variable'
Dim fso,F1
Dim FichierZip
Dim Extraire
Dim objShell
Dim FilesInZip
Dim Dossier, Lecteur, Chemin
 
'renommage moteur de scan'
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Dossier = "moteur\"
lecteur = fso.GetdriveName(WScript.ScriptFullName)
Chemin = Lecteur & ".\" & dossier
If fso.folderExists(chemin) then
For each f1 in fso.Getfolder(chemin).Files
if right(ucase(f1.name),3)="ZIP" then
F1.name = "tmengX64.zip"
end if
Next
End if