Bonsoir ou bien bonjour

J’aimerais renommer TOUS mes fichiers vidéos d'un dossier en enlevant les caractères "gênant"

Dont :
"french" & "FRENCH" & "bluray" & "BLURAY" & "720" & "x264" & "DesTroY" & "BRRip" et les "." "-" "_"
Remplacer Par "" ou " "




Par exemple :

Chemin.2015.FRENCH.BRRip.x264.AC3-DesTroY.mkv

Deviendrais :
Chemin 2015.mkv



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
Const ACCENT = ".-_"
Const NOACCENT = "   "
 
Function SansAccents(strAvecAccents)
 
	' Définition des variables locales
	Dim i
	Dim lettre
	Dim strSansAccents
        Dim fs
 
	strSansAccents = strAvecAccents
	  For i = 1 To Len(ACCENT)
	    lettre = Mid(ACCENT, i, 1)
	    If InStr(strSansAccents, lettre) > 0 Then
	       strSansAccents = Replace(strSansAccents, lettre, Mid(NOACCENT, i, 1))
	    End If
	  Next
	SansAccents = strSansAccents
 
	' Libération des variables locales
	Set i = Nothing
	Set lettre = Nothing
	Set strSansAccents = Nothing
 
End Function 
 
 
 
 
   Monfichier = "C:\Users\Desktop\*.mkv" & "C:\Users\Desktop\*.mp4" & "C:\Users\Desktop\*.avi"
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set aFile = fso.GetFile(Monfichier)
 
   partfic = split(Monfichier,".")
   Monfichier = partfic(0) & "_" & strSansAccents
 
   aFile.Move Monfichier
Il y a plein de problème dans mon code et je suis bloqué

Je pense que je suis sur la mauvaise piste ^^


Merci beaucoup ! ^^