FF3Xplore - Open an explorer window at the current FF3 project path

[Rolf Brandt]

FF3 can open a DOS box at the path of the currently opened projet. I like that. But sometime I would like an explorer window instead  Here are a few lines of code and a little tool that will do just that.

Add FF3Xplore to the UserTools and whenever you call it from the FF3 Tools menu it will open an explorer window for the current FF3 project path.

Code Select Expand

#COMPILE EXE
#INCLUDE "WIN32API.INC"

FUNCTION PBMAIN()
LOCAL res           AS DWORD
LOCAL winCaption    AS ASCIIZ * %Max_Path
LOCAL fPath         AS STRING
LOCAL x             AS LONG

res = GetForegroundWindow()
getwindowtext(res,winCaption,%Max_Path)
fPath = MID$(winCaption,INSTR(-1,winCaption,"[") + 1)
fPath = LEFT$(fPath,INSTR(-1,fPath,"\"))

x = SHELL("explorer.exe " & fPath,1)
END FUNCTION


[Roger Garstang]

Sometimes titlebar text gets cropped, and GetWindowText calls one of two ways depending on who owns the window either getting the Caption Text or the Text of the Window.  Did passing it <R> for it to open an Explorer window in not work?

[John Montenigro]

Thank you for this useful tool.

Here's a little variation I made in order to run a command-prompt command...

Use it or adapt it as you see fit!

Code Select Expand


#Compile Exe "c:\tools\FF3_CommandLine.exe"
#Include "WIN32API.INC"

Function PBMain()
   Local Res           As Dword
   Local winCaption    As AsciiZ * %Max_Path
   Local fPath         As String
   Local x             As Long
   Local CmdLine       As String

   Res = GetForegroundWindow()
   getwindowtext(Res,winCaption,%Max_Path)
   fPath = Mid$(winCaption,InStr(-1,winCaption,"[") + 1)
   fPath = Left$(fPath,InStr(-1,fPath,"\"))

   'pop up an inputbox and get the command
   'CmdLine = inputbox$("Enter commandline: ","Run a CommandLine", "dir *.*")
   CmdLine = InputBox$("Enter commandline: ","Run a CommandLine", "copy *_BAK*.* "  & $Dq & ".\older stuff" & $Dq)

   ChDrive fPath
   ChDir   fPath
   Shell Environ$("COMSPEC") + " /K " & CmdLine

End Function