Challenge Everything

출처 : http://soyokaze.egloos.com/900499/

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

VB에서 ADODB.Connection 사용할 때

'-2147217871 (80040e31)' 런타임 오류

"시간 제한이 만료되었습니다."

라고 에러 메시지가 처음부터 뜨는게 아니고 어느정도 쿼리 진행하다보면 뜬다.

VB에서 DB connect time은 기본적으로 30초란다.

30초가 넘어가면 "시간 제한이 만료되었습니다." 메세지가 나온다고 한다.

해결 방법은 아래와 같다.

=====================================================================================

Connection 객체를 open 하기 전에

conn.CommandTimeout = 0 '단위는 초

conn.ConnectionTimeout = 0 '단위는 초

ConnectionTimeout 은 연결하는 시간설정

CommandTimeout 은 쿼리등의 커맨드 시간설정

=====================================================================================

출처 : http://support.microsoft.com/kb/189323

      Option Explicit

      Private Const OFFSET_4 = 4294967296#
      Private Const MAXINT_4 = 2147483647
      Private Const OFFSET_2 = 65536
      Private Const MAXINT_2 = 32767

      Function UnsignedToLong(Value As Double) As Long
        If Value < 0 Or Value >= OFFSET_4 Then Error 6 ' Overflow
        If Value <= MAXINT_4 Then
          UnsignedToLong = Value
        Else
          UnsignedToLong = Value - OFFSET_4
        End If
      End Function

      Function LongToUnsigned(Value As Long) As Double
        If Value < 0 Then
          LongToUnsigned = Value + OFFSET_4
        Else
          LongToUnsigned = Value
        End If
      End Function

      Function UnsignedToInteger(Value As Long) As Integer
        If Value < 0 Or Value >= OFFSET_2 Then Error 6 ' Overflow
        If Value <= MAXINT_2 Then
          UnsignedToInteger = Value
        Else
          UnsignedToInteger = Value - OFFSET_2
        End If
      End Function

      Function IntegerToUnsigned(Value As Integer) As Long
        If Value < 0 Then
          IntegerToUnsigned = Value + OFFSET_2
        Else
          IntegerToUnsigned = Value
        End If
      End Function