Desktop Management Scripting-Sprache › Funktionen › Funktionen für das Dateisystem › GetShortFileName - Konvertieren langer Dateinamen in kurze Dateinamen

GetShortFileName - Konvertieren langer Dateinamen in kurze Dateinamen

Gültig für Symbian OS und Windows.

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

Diese Dateiinhaltsfunktion hat das folgende Format:

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

longFileName

Hierbei handelt es sich um einen Eingabeparameter. Dieser Parameter stellt den Dateinamen dar, der in das kurze Dateinamensformat (8.3-Notation) konvertiert werden soll.

shortFileName

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

Bei erfolgreicher Ausführung gibt diese 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: Funktion "GetShortFileName"

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)