' map to ctrl-s in Homesite to log each file save in the file's directory.
' I work on many concurrent projects and this makes tracking my time easier.

sub Main
	set app = Application
	app.ActiveDocument.save

	sFile = app.ActiveDocument.Filename
	if sFile <> "" then
		Dim objFSO, objTextFile
		Dim sRead, sReadLine, sReadAll
		Const ForReading = 1, ForWriting = 2, ForAppending = 8

		sPath = GetFilePath(sFile)
		
		Set objFSO = CreateObject("Scripting.FileSystemObject")
		Set objTextFile = objFSO.OpenTextFile(sPath & "\saveLog.txt", ForAppending, true)
		objTextFile.WriteLine(now & " - " & sFile)
		objTextFile.Close
	end if
end sub

function GetFilePath(sFile)
     for nIdx = Len(sFile) to 1 step -1
          if Mid(sFile, nIdx, 1) = "\" then
               GetFilePath = Left(sFile, nIdx)			   
               exit for
          end if
	next
end function