[RESOLU] Connaître le nom d'un dossier

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Avatar de l’utilisateur
omega
Messages : 633
Inscription : sam. 26/nov./2011 13:04
Localisation : Alger

[RESOLU] Connaître le nom d'un dossier

Message par omega »

Bonjour,

Supposons que l'on choisit, dans une boite de dialogue, le dossier (ou répertoire) suivant:
c:\mesprog\gestion\Data\

Ma question est très simple: comment récupérer le nom du dossier sélectionné ? Je cherche à connaître UNIQUEMENT le nom du dossier et non pas le chemin complet, dans cet exemple se sera: Data

Merci de votre aide
Dernière modification par omega le mer. 10/nov./2021 16:17, modifié 1 fois.
Win7 (x64) 64 bits Pb 5.72
Avatar de l’utilisateur
omega
Messages : 633
Inscription : sam. 26/nov./2011 13:04
Localisation : Alger

Re: Connaître le nom d'un dossier

Message par omega »

Je sais qu'en passant par le balayage du chemin complet, à l'aide par exemple de findString, ça sera une des solutions, mais je préfère une instruction Pb plus simple qui consiste à récupérer le nom du répertoire directement sans passer par des tests de caractères....
Win7 (x64) 64 bits Pb 5.72
Avatar de l’utilisateur
omega
Messages : 633
Inscription : sam. 26/nov./2011 13:04
Localisation : Alger

Re: Connaître le nom d'un dossier

Message par omega »

Je crois que je n'ai pas le choix

Code : Tout sélectionner

Dossier$ = PathRequester("Choisissez un dossier à compresser", dossier$)
  If Dossier$
     For k=1 To Len(dossier$)
         NomDossier$=StringField(dossier$, k, "\")
     Next
     
     Debug NomDossier$
Win7 (x64) 64 bits Pb 5.72
Avatar de l’utilisateur
Micoute
Messages : 2584
Inscription : dim. 02/oct./2011 16:17
Localisation : 35520 La Mézière

Re: [RESOLU] Connaître le nom d'un dossier

Message par Micoute »

Pourquoi n'utilise-tu pas GetFilePart() ?
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce RTX 3080 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 6.20 LTS (x64)
Un homme doit être poli, mais il doit aussi être libre !
Marc56
Messages : 2197
Inscription : sam. 08/févr./2014 15:19

Re: [RESOLU] Connaître le nom d'un dossier

Message par Marc56 »

(avec ou sans \ final)

Code : Tout sélectionner

Dossier$ = "C:\mesprog\gestion\Data\"

Debug StringField(Dossier$, CountString(RTrim(Dossier$, "\"), "\") + 1, "\")

Ou en utilisant la proposition de Micoute
(on triche en supprimant l'\ final ce qui fait croire au système que le dernier répertoire est un fichier :mrgreen: , donc GetFilePart() fonctionne dans ce cas.)

Code : Tout sélectionner

Dossier$ = "C:\mesprog\gestion\Data\"

Debug GetFilePart(RTrim(Dossier$, "\"))
:wink:
Répondre