フルパス名の取得(VB)

キーワード:

GetFullPathName

サンプルコード:

'宣言
Declare Function GetFullPathName Lib "kernel32" Alias "GetFullPathNameA" ( _
	ByVal FileName As String, _
	ByVal PathNameSize As Long, _
	ByVal PathName As String, _
	ByVal FilePart As Long) As Long

'フルパス名の取得
Private Sub DispFullPathName()
	Dim PathName As String * MAX_PATH

	GetFullPathName ".\qq\aaa.txt", MAX_PATH, PathName, 0
	MsgBox Left(PathName, InStr(PathName, vbNullChar) - 1)
End Sub

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

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