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
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.
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)
|
Copyright © 2013 CA.
Tous droits réservés.
|
|