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