Renommer version masque

Télécharger le projet
Commenter

Description

Pourquoi version masque, il me semblait plus simple de passer par ce system, en fait on utilise des mots clé que j'appel masques permettant de <<découper, ajouter , indexer, dater>> enfin vous verrez ya un petit tuto d'utilisation 'le saviez vous...'
Voila donc, j'ai pas vu de bug, n'ésitez pas a le tester
heuu... en fait je conseil tout de même de faire une simulation comme décrite dans l'exemple de code en bas:
Remplacer carément la sub 'Command1_Click'...

Source / Exemple : 


'*******************************************************
'Boucle sur les fichiers sélectionnés,
'interprete le masque pour renommer
'*******************************************************
Private Sub Command1_Click()
On Error GoTo Err_Command1_Click:

Dim i As Integer
Dim j As Integer
Dim Count As Double
Dim strFilename As String

Count = 0

For i = 0 To File1.ListCount - 1
    If File1.Selected(i) Then
        Count = Count + 1
        j = 1
        While InStr(j, File1.List(i), ".") > 0
            strFilename = Mid(File1.List(i), 1, InStr(j, File1.List(i), ".") - 1)
            j = InStr(j, File1.List(i), ".") + 1
        Wend
        MsgBox File1.Path & "\" & File1.List(i) & Chr(13) & "se transforme en :" & Chr(13) & File1.Path & "\" & InterpretMask(strFilename, Text2.Text, Count) & "." & Mid(File1.List(i), j)
'        SystemObject.MoveFile File1.Path & "\" & File1.List(i), File1.Path & "\" & InterpretMask(strFilename, Text2.Text, Count) & "." & Mid(File1.List(i), j)
    End If
Next i

File1.Refresh
RefreshTitle
Exit Sub

Err_Command1_Click:
MsgBox Err.Description & Chr(13) & File1.Path & "\" & InterpretMask(strFilename, Text2.Text, Count) & "." & Mid(File1.List(i), j), vbCritical
RefreshTitle
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.