EXTRAIRE LE RÉPERTOIRE D'UN FICHIER, SON EXTENSION, SON NOM, SANS FSO MAIS PAR UN ALGO

Commentaire de thierrydelepine le 07/04/2004 09:58:21

Tu as ca aussi, beaucoup mieux puisque plus d'infos encore.
ce n'est pas debile comme tu dis on peux en avoir besoin dans des traitenements, cela a deja ete mon cas.

dans le code ci dessous tu peux recuperer le repertoire, le repertoire parent, l'extension, le nom du fichier sans extension.

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("c:\windows\explorer.exe")
msgbox "Absolute path: " & objFSO.GetAbsolutePathName(objFile)
msgbox "Parent folder: " & objFSO.GetParentFolderName(objFile)
msgbox "File name: " & objFSO.GetFileName(objFile)
msgbox "Base name: " & objFSO.GetBaseName(objFile)
msgbox "Extension name: " & objFSO.GetExtensionName(objFile)
Set objFile = nothing
Set objFSO = nothing

lol

Commentaire de thierrydelepine le 07/04/2004 10:21:05

il existe plein de facon pour arriver au meme resultat, uitlise donc celle que tu veux suivant tes besoins.

pour info: cette methode ne necessite aucune DLL supplementaire si tu fais un package de diffusion de ton appli car "Scripting.FileSystemObject" utilise le scripting de microsoft intégré a IE depuis la version 5.0, il suffit donc que IE 5.0 mini soit installé sur le poste client pour que mon code marche, pas de DLL supplementaire.

Commentaire de magic le 07/04/2004 11:06:17

Ta boucle recherche la derniére occurrence du séparateur "\".
Il y a maintenant une fonction qui fait cela dans VB6:

n = inStrRev(myPath, "\")

Ce qui permet d'extraire ce qui t'es utile:

myFile = mid(myPath, n+1)
myFolder = left(myPath, n-1)

Commentaire de thierrydelepine le 07/04/2004 11:15:26

on peut aussi faire :

Dim MyListChemin() As String

Fichier = "c:\windows\explorer.exe"

MyListChemin = Split(Fichier, "\", -1, vbTextCompare)
For i = 0 To UBound(MyListChemin)
    MsgBox MyListChemin(i)
Next

et la on recupere - "c:"
                         - "windows"
                         - "explorer.exe"

il y a tellement de methodes......

Commentaire de interkira le 07/04/2004 11:46:46

Le FSO n'est pas du VB mais du VBS !! Mettre du VBS dans du Vb c'est comme mettre du gasoil dans une moto ! Dire qu'il ne faut pas de DLLs supplémentaires ?!! Faut IE 5 non ? donc....j'ai netscape j'ai enlevé IE et et... Ca fonctionne pas comme c'est dommage.

Sinon ton code est pas mal azerty25, mais essais de supprimer le Do while c'est une boucle inutile, il y a des fonctions pour rechercher la position de caractére (ou chaine) comme InstrRev.

I = InStrRev(UCase(pchemin), "\")
Left(pchemin, I)

Sinon il y a des dlls qui sont faite pour ça et qui font mieux que le FSO et en bcp plus rapide et intégré au systéme Windows faut les trouver. ;o)

@+

Commentaire de jp50 le 07/04/2004 15:42:37

Je viens d'apprendre la méthode InStrRev. Mais j'ai trouvé un problème pour l'extension. Tu suppose que l'extension est de trois lettres. Je travaille en direct 3D et plusieurs de mes fichiers sont en *.x alors ta fonction me donne "e.x" au lieu de juste x.

Tu pourrais faire quelque chose comme

Dim myPath As String
myPath = "c:\tests\waza.x"
myExtension = Split(myPath, ".")
MsgBox "Extension : " & myExtension(UBound(myExtension))

En passant j'ai mis la dernière occurence de myExtension car j'ai quelquefois des fichier du genre "Maison.arbre.x"

Jp50

Commentaire de Renfield le 07/04/2004 22:37:07 administrateur CS

Juste une remarque sur la première routine....

Je n'aime pas trop ta boucle While, mais j'aim encore moins que tu découpe a chaque iteration ta chaine.... c'est pas franchement économique, tout ca ;)
un Mid$ serait peut être plus adapté ?

En ce qui concerne la deuxieme routine, pourquoi utiliser tantot Split, tantot Instrrev ?