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"

    
  
SamLogic