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

キーワード:

GetShortPathName

サンプルコード:

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

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

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

(original text:1998/12/25 更新)

本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。