ce code permet d'avoir le nom du fichier
Source / Exemple :
Module Files
Dim stStorChaine(1000) As String
Dim Principal, Secondaire As Long
Dim Counter, Counter2 As Long
Public Function FindTitle(ByRef strFileName)
For Principal = 1 To Len(strFileName)
stStorChaine(Principal) = Mid(strFileName, Principal, 1)
If stStorChaine(Principal) = "\" Then
Counter += 1
End If
Next
For Secondaire = 1 To Len(strFileName)
If stStorChaine(Secondaire) = "\" Then Counter2 += 1
If Not stStorChaine(Secondaire + 1) = "\" And Counter2 = Counter Then
Return Mid(strFileName, Secondaire + 1, Len(strFileName) - Secondaire)
Exit For
End If
Next
End Function
Public Function FindExtension(ByVal strFileName)
For Principal = 1 To Len(strFileName)
stStorChaine(Principal) = Mid(strFileName, Principal, 1)
If stStorChaine(Principal) = "." Then
Counter += 1
End If
Next
For Secondaire = 1 To Len(strFileName)
If stStorChaine(Secondaire) = "." Then Counter2 += 1
If Not stStorChaine(Secondaire + 1) = "." And Counter2 = Counter Then
Return Mid(strFileName, Secondaire, (Len(strFileName) - Secondaire) + 1)
Exit For
End If
Next
End Function
End Module
Conclusion :
c'est ma premiere sources sur vbfrance alors siyer indulgent
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.