Langage de script Desktop Management › Fonctions › Fonctions du système de fichiers › GetLongFileName – Convertir un nom de fichier long en un nom de fichier court

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

Valide sous Symbian OS et Windows

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

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

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

longFileName

Il s'agit d'un paramètre d'entrée. Il s'agit du nom du fichier à convertir en nom de fichier court (format 8.3).

shortFileName

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

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 : Fonction GetShortFileName

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)