! 發展單位：風禹科技驗證有限公司
! 撰寫人：鄭子璉(Tzu-Lien, Cheng, 璉璉) ，成大水博肄，微軟最有價值專家
! Web: http://tlcheng.twbbs.org/TLCheng/ E-Mail: qvb3377@ms5.hinet.net
! --------------------------------------------------------------------------------------

Module modFileTool
	Use dfwinty
	Use kernel32
	
Contains

	Character(MAX_PATH) Function myGetCurrentDirectory()

		Character(MAX_PATH) :: lpBuffer
		Integer :: summy

		myGetCurrentDirectory = Repeat(' ', MAX_PATH)
		summy = GetCurrentDirectory(MAX_PATH, lpBuffer)	
		myGetCurrentDirectory = lpBuffer(1:summy)

	End Function

	Character(MAX_PATH) Function mySetCurrentDirectory(lpPathName)
		
		Character*(*) :: lpPathName
		Integer :: summy

		mySetCurrentDirectory = myGetCurrentDirectory()
		
		Call ConvStringFToC(lpPathName)
		summy = SetCurrentDirectory(lpPathName)

	End Function

	Subroutine ConvStringFToC(lpString)
		Character*(*) :: lpString
		
		lpString = Trim(lpString) // Char(0)
	End Subroutine

End Module