Extraire le répertoire d'un fichier, son extension, son nom, sans fso mais par un algo

Commenter

Contenu du snippet

J'ai besoin de ceci pour trouver dans quel répertoire est installé un programme a travers la base de registres, qui me renvoyai le chemin du fichier uninstall, et comme j'ai besoin d'un autre fichier de se répertoire pour mes manips, j'ai eu besoin d'extraire le chemin du dossier.

Source / Exemple : 


'Routine postée

Private Sub Command1_Click()
Text2.Text = ExtraireChemin(Text1.Text)
End Sub

Private Function ExtraireChemin(fichier As String)
Dim Chaine As String
Dim iPass As Single
iPass = 0
Do While Left$(Chaine, 1) <> "\"
Chaine = Right$(fichier, iPass)
iPass = iPass + 1
Loop
ExtraireChemin = Left$(fichier, Len(fichier) - Len(Chaine))
End Function

'---------------

'2eme Exemple : pouvant renvoyer chemin, fichier, et extension, pouvant servir d'alternative a FSO, gèrent les précisions telle que 2 extensions sur un fichier

Dim myPath As String
myPath = "c:\tests\waza.txt.waz"
n = InStrRev(myPath, "\")
myfile = Mid(myPath, n + 1)
MsgBox "Fichier : " & myfile
myFolder = Left(myPath, n - 1)
MsgBox "Dossier : " & myFolder
myExtension = Split(myPath, ".")
    If UBound(myExtension) = 0 Then
        MsgBox "Ce fichier n'a pas d'extension"
    ElseIf UBound(myExtension) > 0 Then
        MsgBox "Extension : " & myExtension(UBound(myExtension))
    End If

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.

Du même auteur (cs_azerty25)