Private Function GetFileLastModifiedDate(szFileName) As String
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(szFileName)
GetFileLastModifiedDate = f.DateLastModified
Set f = Nothing
Set fs = Nothing
End Function
Private Function GetFileLastAccessDate(szFileName) As String
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(szFileName)
GetFileLastAccessDate = f.DateLastAccessed
Set f = Nothing
Set fs = Nothing
End Function
Private Function GetFileSize(szFileName) As Long
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(szFileName)
GetFileSize = f.Size
Set f = Nothing
Set fs = Nothing
End Function
Private Function GetFileType(szFileName) As String
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(szFileName)
GetFileType = f.Type
Set f = Nothing
Set fs = Nothing
End Function
Private Function GetFileCreatedDate(szFileName) As String
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(szFileName)
GetFileCreatedDate = f.DateCreated
Set f = Nothing
Set fs = Nothing
End Function
'Development > 삽질의 추억' 카테고리의 다른 글
| 윈도우 XP에서 윈도우7 공유폴더 접근 안 될때 (0) | 2011.08.30 |
|---|---|
| Windows Application의 Minimize의 비밀 (0) | 2011.08.13 |
| VB에서 쿼리 실행할 때 - 시간 제한이 만료되었습니다. (0) | 2011.08.13 |
| VB 에서 Signed 데이터 Unsigned로 변환하기 (0) | 2011.08.13 |
| Run-Time Check Failure #n Question (0) | 2011.08.13 |
