Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

help dieter!!
Autor: Ansi
Datum: 10.12.01 15:37
Hallo Dieter, ich weiß nicht aber ich habe eben mal wieder etwas in euren Tipps geschmöckert und wie so oft was passendes gefunden.... aber, irgendwie klappt das nicht so wirklich.... ich möchte lange Dateinamen in Kurze sprich 8.3 umwandeln. dazu nutze ich euer tip: 'zunächst die benötigten API-Deklarationen Private Declare Function GetShortPathName Lib "kernel32" _ Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, ByVal cchBuffer As Long) _ As Long 'Ermittelt den kurzen Dateinamen Public Function GetShortName(ByVal longName As String) _ As String Dim ShortName As String Dim sLen As Long ShortName = Space$(256) sLen = GetShortPathName(longName, ShortName, Len(ShortName)) ShortName = Left$(ShortName, sLen) GetShortName = ShortName End Function Beispiel: 'Langer Dateiname longName = "c:Eigene DateienVBMeinProjekt.vbp" shortName = GetShortName(longName) '--> cigene~1vbmeinpr~1.vbp" doch ich bekomme immer nur den wert "" zurück... vielleicht kannst du mir ja sagen warum..... gruß ansi

help dieter!!	62	Ansi	10.12.01 15:37
? Darf's auch ein CyberLord sein	217	unbekannt	10.12.01 16:18
Re: ? Darf's auch ein CyberLord sein	44	Ansi	10.12.01 16:32

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen