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
[RESOLU] Connaître le nom d'un dossier
[RESOLU] Connaître le nom d'un dossier
Dernière modification par omega le mer. 10/nov./2021 16:17, modifié 1 fois.
Win7 (x64) 64 bits Pb 5.72
Re: Connaître le nom d'un dossier
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
Re: Connaître le nom d'un dossier
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
Re: [RESOLU] Connaître le nom d'un dossier
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 !
Un homme doit être poli, mais il doit aussi être libre !
Re: [RESOLU] Connaître le nom d'un dossier
(avec ou sans \ final)
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
, donc GetFilePart() fonctionne dans ce cas.)

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

Code : Tout sélectionner
Dossier$ = "C:\mesprog\gestion\Data\"
Debug GetFilePart(RTrim(Dossier$, "\"))
