Visual Basic Tips

ファイルの検索(API)

Private Sub Form_Load()
　　Dim hFile As Long
　　Dim WFD As WIN32_FIND_DATA

　　hFile = FindFirstFile("c:\autoexec.bat", WFD)
　　If hFile = 0 Then
　　　　MsgBox "存在していません"
　　Else
　　　　MsgBox "存在しています"
　　End If
　　Call FindClose(hFile)
End Sub


'----------------------------------------------------------
'　
'----------------------------------------------------------
Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long

Public Type FILETIME
　　dwLowDateTime As Long
　　dwHighDateTime As Long
End Type

Public Const MAX_PATH = 260

Public Type WIN32_FIND_DATA
　　dwFileAttributes As Long
　　ftCreationTime As FILETIME
　　ftLastAccessTime As FILETIME
　　ftLastWriteTime As FILETIME
　　nFileSizeHigh As Long
　　nFileSizeLow As Long
　　dwReserved0 As Long
　　dwReserved1 As Long
　　cFileName As String * MAX_PATH
　　cAlternate As String * 14
End Type



DownLoad vbtips079.lzh 2KB (VB6.0)