短い形式のファイル名表示(VB)

キーワード：

サンプルコード：

' 短い形式のファイル名表示
Private Sub DispShortPathName()
	Dim ShortName As String * 1000

	'短い形式のファイル名取得
	GetShortPathName "c:\0123456789.txt", ShortName, 1000

	'表示
	MsgBox Left(ShortName, InStr(ShortName, vbNullChar) - 1)
End Sub