Development/삽질의 추억

VB에서 파일 수정일자 가져오는 함수

키르히아이스 2011. 8. 13. 16:55

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