Beschreibung: Deklaration: Declare Function GetShortPathName Lib "kernel32.dll" _ Alias "GetShortPathNameA" ( _ ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, _ ByVal cchBuffer As Long) As Long Parameter:
Rückgabewert: Beispiel: Private Declare Function GetShortPathName Lib "kernel32.dll" _ Alias "GetShortPathNameA" ( _ ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, _ ByVal cchBuffer As Long) As Long Private Sub Command1_Click () Dim RetVal As Long DIM sShortName As String sShortName = Space$(256) RetVal = GetShortPathName("C:\Programme\Zubehör", sShortName, _ Len(sShortName)) If RetVal = 0 Then MsgBox "Es ist ein Fehler aufgetreten", vbCritical, "Fehler" Else MsgBox "Der kruze Name lautet: " & Left$(sShortName, RetVal) End If End Sub Diese Seite wurde bereits 17.288 mal aufgerufen. |
vb@rchiv CD Vol.6 ![]() ![]() Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Buchempfehlung Tipp des Monats ![]() Matthias Kozlowski Umlaute konvertieren Ersetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) sevZIP40 Pro DLL ![]() Zippen und Unzippen wie die Profis! Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |