ファイルの検索

ファイルの検索

使用関数： FindFirstFile

＊サンプル＊
#N88BASIC
'ファイルの検索
Dim hFind As Long
Dim FindData As WIN32_FIND_DATA
'最初のファイル検索
hFind = FindFirstFile("C:\windows\win.ini", FindData)
'検索失敗か?
If hFind = INVALID_HANDLE_VALUE Then
Print "検索失敗"
Else
Print "OK"
End If
'検索の終了
FindClose(hFind)