벌써 2008년의 새해가 바뀌고도 1달이 넘어갔다.

구정을 보내면서 올해엔 어떤일들을 해야할까 고민이 참 많았다.

경이랑 이런 저런 얘기를 하면 올해 꼭 지켜야할 것들을 생각해봤다.
 
1. 건강
- 정밀 종합진단을 받아보려고함.(30대초반이라서 그런지.. 건강에 신경을 좀더 써야겠다.)
- 육식을 피하고 채식으로 식단을 짬.
- 야근, 철야가 있어도 주3회이상 운동하기.
- 외식을 피하자(식비로 카드값만 월50-60선)
2. 자동차구입(첫차니까. 한 500만원정도 생각)
- 중고라도 올해는 꼭 구입
3. 해외여행가기
- 홍콩, 일본
4. 책을 읽자
- 둘다 개발자로써 전공서적을 포함하여 소설, 재테크, 취미/여가 등등

일단은 위와 같이 4가지로 계획을 세웠는데. 잘 될진 모르겠지만..
열심히 해서 꼭 성공해야지..

Function ReName(strPath)
  '// strPath : 기존의 폴더경로 또는 파일경로..
  Dim fso, f, s
  Set fso = CreateObject("Scripting.FileSystemObject")
 '// Set f = fso.GetFile(strPath) '// 파일명을 변경할 때..
  Set f = fso.GetFolder(strPath) '// 폴더명을 변경할 때..  

   f.Name = "test1" '// 변경할 새로운 이름
 s = f.Name & " on Drive " & UCase(f.Drive) & "<BR>"
 s = s & "생성 날짜: " & f.DateCreated & "<BR>"
 s = s & "마지막 엑세스 날짜 : " & f.DateLastAccessed & "<BR>"
 s = s & "마지막 수정 날짜 : " & f.DateLastModified

   ReName = s
End Function

response.write ReName("D:!TEST")