Rubrique précédente: GetFileTime – Renvoyer la date de création du fichier, la date de dernier accès ou la date de dernière modificationRubrique suivante: GetLongFileName – Convertir un nom de fichier long en un nom de fichier court


GetLongFileName – Convertir un nom de fichier court en un nom de fichier long

Valide pour Windows

La fonction GetLongFileName convertit le nom de fichier court en nom de fichier long.

Cette fonction de contenu de fichier présente le format suivant :

GetLongFileName(shortFileName as string, longFileName as string) as Boolean
shortFileName

Il s'agit d'un paramètre d'entrée. Il s'agit du nom de fichier MS DOS 8.3 à développer au format de nom de fichier long.

longFileName

Il s'agit d'un paramètre de sortie qui reçoit le nom de fichier long étendu.

En cas de réussite, la fonction renvoie True, sinon elle renvoie False. Pour pouvoir convertir un nom de fichier, le fichier lié doit exister sur le système ; à défaut, la fonction échoue.

Exemple : Fonctions GetFileStoreFree, GetFileStoreSize et GetFileStoreUsage

Cet exemple convertit un nom de fichier long en un nom court, et inversement.

Dim lName, oName, sName As String
ClrScr()

oName ="c:\temp\a bb ccc dddd\abcdefghijklmnopqrstuvwxyz.txt"
If Not(GetShortFileName(oName, sName)) Then
	MessageBox("Impossible de convertir au format court", "DMS", MB_OK + MB_ICONEXCLAMATION)
	SetStatus(1)
	quitter
End If
Print( oName + " - " + sName)
If Not(GetLongFileName(sName, lName)) Then
	MessageBox("Impossible de convertir au format long", "DMS", MB_OK + MB_ICONEXCLAMATION)
	SetStatus(2)
	quitter
End If
Print( sName + " - " + lName)