ab.com コミュニティ

コード: 全て選択

Sub MainWnd_CommandButton1_Click()
SearchFile=FindFirstFile("W:\音楽\*.mp3",Win32Data)
Do
If SearchFile=INVALID_HANDLE_VALUE Then
MessageBox(0,0,0,0)
Else
'MessageBox(0,Win32Data.cFileName,0,0)
Num=Num+1
wsprintf(NumStr,"%04u",Num)
d=NumStr+" - "+"W:\音楽\"+Win32Data.cFileName
SendMessage(hList,LB_ADDSTRING,0,StrPtr(d))
'SetDlgItemText(hMainWnd,EditBox1,Win32Data.cFileName)
FindNextFile(SearchFile,Win32Data)
If a=Win32Data.cFileName Then Exit Do
a=Win32Data.cFileName
End If
Loop
	FindClose(SearchFile)
num=SendMessage(hList,LB_GETCOUNT,0,0)
SetDlgItemText(hMainWnd,Static1,"項目数:"+Str$(num))
End Sub

コード: 全て選択

Const TIME_CREATED		= 0		' 作成された日時
Const TIME_ACCESSED		= 1		' 最後にアクセスされた日時
Const TIME_WROTE		= 2		' 最後に更新された日時

Function FileTime(szFileName As String, nMode As Long) As Int64
	Dim hFile As HANDLE, FT[2] As FILETIME, temp As Int64

	hFile=CreateFile(szFileName, GENERIC_READ, 0, ByVal NULL, OPEN_EXISTING, 0, NULL)
	If hFile=INVALID_HANDLE_VALUE Then
		FileTime=0
		Exit Function
	End If

	If GetFileTime(hFile, FT[0], FT[1], FT[2])=FALSE Then
		FileTime=0
		Exit Function
	End If
	
	CloseHandle(hFile)
	temp=FT[nMode].dwHighDateTime
	FileTime=(temp<<32 Or FT[nMode].dwLowDateTime)
End Function

'使用例
Dim tm As Int64
tm=FileTime("ProjectEditor.exe", TIME_CREATED)