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

안정적인 DNS서비스 DNSEver DNS server, DNS service
Posted by 키르히아이스

댓글을 달아 주세요