|
CreateCompactPath
(XAPI2000)
Deklaration VB 6.0
Function CreateCompactPath (ByVal FName As String, ByVal Limit
As Long) As String
Deklaration VB.NET
Function CreateCompactPath (ByVal FName As String, ByVal Limit
As Integer) As String
Beskrivning
Förkortar sökvägen i strängen FName så att den tar mindre
strängutrymme. Parametern Limit anger vid vilken stränglängd
som komprimeringen ska ske. Limit måste överstiga 16, annars
händer inget. Är längden på sökvägen som skickas in mindre än
Limit utförs ingen komprimering.
Funktionen ska endast användas
i samband med visning av sökvägar på skärmen när utrymmet är begränsat.
Den skapade sökvägen är inte en giltig systemsökväg och kan ej
användas för diskoperationer. Funktionen ser
till att den sista katalognivån och filnamnet alltid syns, oavsett
hur lång sökvägen är. Funktionen stoppar in "\..." i början på strängen
efter enhetsbeteckningen.
Returvärden
Funktionen returnerar den komprimerade sökvägen.. |
Exempel
Dim S As String
S = "C:\Mina dokument\Word 2010\SamLogic\Manualer\VB Super Library\VBSL2010.DOC"
S = CreateCompactPath(S, 18) ' Ger S = "C:\...\VB
Super Library\VBSL2010.DOC"
|
