Some handy macros

Not a lot to be said really. Just paste them into a DSM file or add them to your own macros - add a toolbar or keyboard mapping if you wish.

I have only tested this under WinXP and Win2K.

Open Explorer in the current project

Often there is the need to browse the project directory. Simply assign a key (I use CTRL+E) or add a toolbar button and instantly open Explorer in the project directory.


Sub ExploreProjectDirectory()
	strPath = Application.ActiveProject.FullName

	pos = InStrRev( strPath, "/" )
	strPath = left(strPath, pos )

	Set Sh = CreateObject("Shell.Application")
	sh.Explore strPath
end sub

Open console in the current project

Same deal as the ExploreProjectDirectory macro except this one opens a console window.


Sub OpenConsoleInProjectDirectory()
	strPath = Application.ActiveProject.FullName

	nPos = InStrRev( strPath, "/" )
	strPath = left(strPath, nPos )

	Set Sh = CreateObject("WScript.shell")
	sh.run "cmd /K  cd /d " + strPath
end sub