Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
 
RegistrierenRegistrieren  LoginLogin
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Source Codes
Autor
Nachricht
ZiG
Überflieger
Überflieger

Anmeldedatum: 16.04.2008
Beiträge: 421

GetShortPathname (Pfad in altes Dos 8.3 Format umwandeln)
Verfasst am: 18.06.2009, 12:03

Name: GetShortPathname
Funktion: Wandelt einen normalen String/Pfad in das alte Dos 8.3 Format um.
Rückgabe: Ein String. (Verkürzter Pfad)


Visual Basic: [code]Private Declare Function GetShortPathname Lib "kernel32" Alias "GetShortPathNameA" (ByVal strLongPath As String, ByVal strShortPath As String, ByVal intBufferLen As Integer) As Integer

Public Function GetShortname(ByVal LongPathName As String) As String
Dim strShortName As String, iLen As Integer

iLen = GetShortPathname(LongPathName, strShortName, 0)
strShortName = Space(iLen - 1)
Call GetShortPathname(LongPathName, strShortName, iLen)
GetShortname = strShortName

End Function[/code]
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Source Codes

Tags: getshortpathname, dos, pfad

 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Problem mit always on top funktion 1106 30.10.2009, 12:26
Keine neuen Beiträge IntStr()funktion 1307 11.10.2007, 09:49
Keine neuen Beiträge TopMost Funktion unter DirectX 1021 27.07.2007, 11:48
Keine neuen Beiträge Wie Funktion nutzen ? 1213 29.06.2007, 21:59
Keine neuen Beiträge update funktion einbauen 1455 29.01.2007, 00:11
 


[ Time: 0.0598s ][ Queries: 80 (0.0224s) ][ GZIP on - Debug on ]