ab.com コミュニティ

コード: 全て選択

' 引数はファイル名の絶対パス
' ファイルが存在するなら TRUE が、存在しないなら FALSE が返る
Function exist(ByVal lpFileName As LPSTR) As BOOL
	If (GetFileAttributes(lpFileName) And FILE_ATTRIBUTE_DIRECTORY) = 0 Then
		Return TRUE
	Else
		Return FALSE
	End If
End Function

コード: 全て選択

#prompt
Dim AFileName As String
AFileName = "C:\WINDOWS\notepad.exe" '適当な絶対パスのファイル名

'ファイル名は存在し、かつそれがディレクトリでなければ
If (GetFileAttributes(StrPtr(AFileName)) And FILE_ATTRIBUTE_DIRECTORY) = 0 Then
  Print AFileName + "は存在します"
Else
  Print AFileName + "は存在しません"
End If