Desktop Management Scripting-Sprache › Funktionen › Funktionen für das Dateisystem › GetLongFileName - Konvertieren kurzer Dateinamen in lange Dateinamen

GetLongFileName - Konvertieren kurzer Dateinamen in lange Dateinamen

Gültig für Windows

Die Funktion "GetLongFileName" konvertiert den kurzen Namen einer Datei in den langen Dateinamen.

Funktionssyntax:

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

shortFileName

Ein Eingabeparameter. Dies ist der MS DOS 8.3-Dateiname, der zu dem langen Dateinamenformat erweitert wird.

longFileName

Hierbei handelt es sich um einen Ausgabeparameter, der den erweiterten Dateinamen erhält.

Bei erfolgreicher Ausführung gibt die Funktion TRUE zurück, andernfalls FALSE. Wenn Sie einen Dateinamen konvertieren möchten, muss die zugehörige Datei auf dem System vorhanden sein, sonst schlägt die Funktion fehl.

Beispiel:

In diesem Beispiel wird ein langer Dateiname in einen kurzen und wieder zurück in einen langen Dateinamen konvertiert.

Dim lName, oName, sName As String
ClrScr()

oName ="c:\temp\a bb ccc dddd\abcdefghijklmnopqrstuvwxyz.txt"
If Not(GetShortFileName(oName, sName)) Then
	MessageBox("Konvertierung in das kurze Format nicht möglich", "DMS", MB_OK + MB_ICONEXCLAMATION)
	SetStatus(1)
	Beenden
End If
Print( oName + " - " + sName)
If Not(GetLongFileName(sName, lName)) Then
	MessageBox("Konvertierung in das lange Format nicht möglich", "DMS", MB_OK + MB_ICONEXCLAMATION)
	SetStatus(2)
	Beenden
End If
Print( sName + " - " + lName)