Renommer des fichiers vidéos en enlevant les . les - et les _

**ABOAT** · 27/10/2015, 02h20

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 ! ^^

**hackoofr** · 27/10/2015, 19h56

une petite idée :

Code :

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

1
2
3
4
FileName = "Chemin.2015.FRENCH.BRRip.x264.AC3-DesTroY.mkv"
Tab = Split(FileName,".")
NewFileName = Tab(0) & " " & Tab(1) & "." & Tab(UBound(Tab))
wscript.echo FileName & vbCr & NewFileName

**ABOAT** · 27/10/2015, 21h11

Envoyé par hackoofr

une petite idée :

Code :

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

1
2
3
4
FileName = "Chemin.2015.FRENCH.BRRip.x264.AC3-DesTroY.mkv"
Tab = Split(FileName,".")
NewFileName = Tab(0) & " " & Tab(1) & "." & Tab(UBound(Tab))
wscript.echo FileName & vbCr & NewFileName

hackofr
Voici le script :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
FileName = "C:\Users\Desktop\Film\Chemin.2015.FRENCH.BRRip.x264.AC3-DesTroY.mkv"
Tab = Split(FileName,".")
NewFileName = Tab(0) & " " & Tab(1) & "." & Tab(UBound(Tab))
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set aFile = fso.GetFile(FileName)
 
   partfic = split(FileName,".")
   Monfichier = NewFileName
 
   aFile.Move NewFileName
MsgBox "" & FileName & "Devient : " & NewFileName

Par contre ce script fait l'opération sur un seul film (nommé en plus)
C'est tu comment faire ça sur tout les fichiers vidéos d'un dossier (Sans les nommé un par un) ?

**hackoofr** · 27/10/2015, 22h38

Testez ce script :

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
Option Explicit
Dim File,MyRootFolder,RootFolder
MyRootFolder = Browse4Folder
Call Scan4File(MyRootFolder)
MsgBox "Script Done !",VbInformation,"Script Done !"
'**************************************************************************
Function Browse4Folder()
    Dim objShell,objFolder,Message
    Message = "Please select a folder in order to scan into it and its subfolders to rename files"
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(0,Message,0,0)
    If objFolder Is Nothing Then
        Wscript.Quit
    End If
    Browse4Folder = objFolder.self.path
End Function
'****************************************************************************
Function Scan4File(Folder)
    Dim fso,objFolder,arrSubfolders,FileName
    Dim Tab,SubFolder,NewFileName,aFile,partfic
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set objFolder = fso.GetFolder(Folder)
    Set arrSubfolders = objFolder.SubFolders
    For Each FileName in objFolder.Files
        Tab = Split(FileName,".")
        NewFileName = Tab(0) & " " & Tab(1) & "." & Tab(UBound(Tab))
        msgbox NewFileName
        Set aFile = fso.GetFile(FileName)
        partfic = split(FileName,".")
        MsgBox FileName & vbcr & " Devient : " & NewFileName
        aFile.Move NewFileName
    Next
    For Each SubFolder in arrSubfolders
        'Call Scan4File(SubFolder) 'appel récursive pour scanner dans les sous-dossiers
    Next
End Function
'**************************************************************************

**ABOAT** · 28/10/2015, 20h48

J'ai un peut modifier le script a mon gout ^^

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
44
45
46
47
48
49
50
51
52
53
54
Option Explicit
Dim File,MyRootFolder,RootFolder
MyRootFolder = Browse4Folder
Call Scan4File(MyRootFolder)
MsgBox "Script fini !"  & vbcr & "Tout les fichiers du dossier sont passer !" & vbcr & "Merci a hackoofr",VbInformation,"Opération fini !"
'**************************************************************************
Function Browse4Folder()
    Dim objShell,objFolder,Message
    Message = "Please select a folder in order to scan into it and its subfolders to rename files"
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(0,Message,0,0)
    If objFolder Is Nothing Then
        Wscript.Quit
    End If
    Browse4Folder = objFolder.self.path
End Function
'****************************************************************************
Function Scan4File(Folder)
    Dim fso,objFolder,arrSubfolders,FileName
    Dim Tab,SubFolder,NewFileName,aFile,partfic
    Dim oShell,iRet
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set objFolder = fso.GetFolder(Folder)
    Set arrSubfolders = objFolder.SubFolders
    For Each FileName in objFolder.Files
        Set aFile = fso.GetFile(FileName)
        Tab = Split(FileName,".")
        NewFileName = Tab(0) & " " & Tab(1) & "." & Tab(UBound(Tab))
        Set oShell = WScript.CreateObject("WScript.Shell")
        iRet = oShell.Popup ("Le fichier : " & vbcr & FileName & vbcr & vbcr & " Va devenir : " & vbcr & NewFileName,8,"Oui ou Non ?",vbOKCancel+32)
         If iRet = 1 Then
            partfic = split(FileName,".")
            Set oShell = WScript.CreateObject("WScript.Shell")
                For Each SubFolder in arrSubfolders
                 Call Scan4File(SubFolder) 'appel récursive pour scanner dans les sous-dossier
                Next
              aFile.Move NewFileName 
            End If
 
         If iRet = -1 Then
            partfic = split(FileName,".")
            Set oShell = WScript.CreateObject("WScript.Shell")
                For Each SubFolder in arrSubfolders
                 Call Scan4File(SubFolder) 'appel récursive pour scanner dans les sous-dossier
                Next
              aFile.Move NewFileName 
            End If
 
         If iRet = 2 Then
             oShell.Popup "Fichier Annuler",4," /!\ ERREUR /!\",48 
           End If
    Next       
End Function
'**************************************************************************

Par contre je n'ai pas compris pourquoi je ne peut pas faire :
If iRet = 1 Or -1 Then 'dans la même ligne a la place de les faire un-par-un ?

Mais c'est pas grave je vais ENFIN pouvoir faire le ménage dans mes film

**SfJ5Rpw8** · 28/10/2015, 20h59

Bonjour,

Envoyé par ABOAT

....
If iRet = 1 Or -1 Then 'dans la même ligne a la place de les faire un-par-un ?

Mais c'est pas grave je vais ENFIN pouvoir faire le ménage dans mes film

Ben Or est un opérateur logique ... et il se comporte comme tout opérateur si tu le remplace par l'opérateur + par exemple tu comprends mieux ?

Code :

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

If iRet = -1 + 1  Then

Renommer des fichiers vidéos en enlevant les . les - et les _

VBScript

Discussions similaires

Partager

Partager