ShortenDir

Shorten a long Dir by adding ... in the middle to make it fit in small boxes
Found online a while back, needs some work maybe, but a good start.
Can be modified to be used with URLs as well

CodeFunctionName What is this?

Public

Tested

Imported

Access is limited.

No registration, not another password to remember, login using your Linkedin account and have access to all public codes in Mydev.net

Linkedin Login

Parameters

FullDir, MaxLength

Examples

MyPath = "D:\My\Dropbox\CameraQosmioTV\Sites.Add2ANmarSystems\FeedBacks"
? ShortenDir(MyPath, 70)
D:\My\Dropbox\CameraQosmioTV\Sites.Add2ANmarSystems\FeedBacks
? ShortenDir(MyPath, 60)
D:\...\CameraQosmioTV\Sites.Add2ANmarSystems\FeedBacks
? ShortenDir(MyPath, 50)
D:\...\Sites.Add2ANmarSystems\FeedBacks
? ShortenDir(MyPath, 40)
D:\...\Sites.Add2ANmarSystems\FeedBacks
? ShortenDir(MyPath, 30)
D:\...\FeedBacks
? ShortenDir(MyPath, 20)
D:\...

Permanenet link

Statistics

Views 1,255

Downloads 458

IDs

CodeID

DB ID

ASP Classic

File System

ANmarAmdeen
731

Attachments

Revisions

v1.0

Wednesday

February

2020