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
|
'Tronconne petit à petit le texte du nom de fichier au fil des étapes
Dim cutedfName As String = IO.Path.GetFileNameWithoutExtension(finfo.Name)
Dim tmp_NomSerie As String
Dim tmp_NumSaison As Integer
Dim etape As Integer = 1
While etape < 10 AndAlso CtrlNommageResult.IsOk
Select Case etape
Case 1
tmp_NomSerie = Ctrl_NomSerie(cutedfName, PathInfos)
Case 2
Ctrl_SerieSaisonSeparator(cutedfName)
Case 3
tmp_NumSaison = Ctrl_Saison(cutedfName, PathInfos)
Case 4
Ctrl_SaisonEpisodeSeparator(cutedfName)
Case 5
End Select
etape += 1
End While |
Partager