www.softwaredevelopmentdeveloper.com
옥션 아이폰/아이팟 집에서 즐기기 롯데마트 11번가 주민등록번호 도용사실이 있는지 확인해 보세요! CJmall 회원가입 도메인 NO.1-호스팅 NO.1 든든한 웹파트너 가비아 ! 건담 전문몰 건담샵 No.1 중고차 쇼핑몰! SK엔카
아래출처는 http://ad.web2r.net/r.php?c=shop 입니다.
******************************************************************************************************
Function GetDBPath() As String
Dim MyDB As DATABASE
Dim tempPath As String
Dim FileLen As Integer
' Set MyDB to the current database.
Set MyDB = CurrentDb()
' get the length of the db file name
FileLen = Len(Dir(MyDB.Name, vbDirectory))
' trims off the db filename so the path is all that's left.
tempPath = Left(MyDB.Name, (Len(MyDB.Name) - FileLen))
' Return the path name
GetDBPath = tempPath