Having an issue where I can only browse one folder deep. Anyone seen this or able to provide some assistance?
As you can see by the below image, I can only browse to the folder iPhone, I can't browse to the next folder deep (iTunesSetup.v9.2).
I am using MacroScheduler v12.1.10 if that is of any help.
Code: Select all
// COMPILE_OPTS|C:\Users\allem5\Desktop\PST 2 MSG.exe|M:\Icons\CSC.ico|CONSOLE=0|INCLUDES=1| /NOSYSTRAY /LOGFILE=\dev\nul
Let>APP_TITLE=Export PST To MSG
Let>MSG_HEIGHT=320
Let>MSG_WIDTH=500
Dialog>Dialog1
object Dialog1: TForm
Left = 247
Top = 96
HelpContext = 5000
BorderIcons = [biSystemMenu]
Caption = 'PST2MSG'
ClientHeight = 170
ClientWidth = 474
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Courier New'
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
ShowHint = True
OnTaskBar = False
PixelsPerInch = 96
TextHeight = 18
object Label1: TLabel
Left = 8
Top = 64
Width = 300
Height = 18
Caption = 'Save Contents Of PST File Here'
end
object Label2: TLabel
Left = 8
Top = 8
Width = 300
Height = 18
Caption = 'Location Of PST File To Export'
end
object Label3: TLabel
Left = 8
Top = 120
Width = 100
Height = 18
Caption = 'Written By'
end
object Label4: TLabel
Left = 8
Top = 144
Width = 200
Height = 18
Caption = 'Michael Allen '#169' 2012'
end
object SAVEPATH: TEdit
Left = 8
Top = 88
Width = 377
Height = 26
TabOrder = 2
end
object PSTPATH: TEdit
Left = 8
Top = 32
Width = 377
Height = 26
TabOrder = 0
end
object SAVEPATHBTN: tMSButton
Left = 392
Top = 64
Width = 75
Height = 49
Caption = 'Browse'
DoubleBuffered = True
ParentDoubleBuffered = False
TabOrder = 3
DoBrowse = False
BrowseStyle = fbFolder
end
object PSTPATHBTN: tMSButton
Left = 392
Top = 8
Width = 75
Height = 49
Caption = 'Browse'
DoubleBuffered = True
ParentDoubleBuffered = False
TabOrder = 1
DoBrowse = False
Filter = 'PST Files (*.pst)|*.pst|All Files (*.*)|*.*'
BrowseStyle = fbOpen
end
object RUNEXPORT: tMSButton
Left = 232
Top = 120
Width = 155
Height = 41
Caption = 'Export Emails'
DoubleBuffered = True
ParentDoubleBuffered = False
TabOrder = 4
DoBrowse = False
BrowseStyle = fbOpen
end
object EXITBTN: tMSButton
Left = 392
Top = 120
Width = 75
Height = 41
Caption = 'Exit'
DoubleBuffered = True
ModalResult = 2
ParentDoubleBuffered = False
TabOrder = 5
DoBrowse = False
BrowseStyle = fbOpen
end
end
EndDialog>Dialog1
//Set an Event Handler for the button's OnClick event
AddDialogHandler>Dialog1,SAVEPATHBTN,OnClick,SRTSAVEPATH
AddDialogHandler>Dialog1,PSTPATHBTN,OnClick,SRTPSTPATH
AddDialogHandler>Dialog1,RUNEXPORT,OnClick,SRTRUNEXPORT
Show>Dialog1,Dialog1Result
//Here we perform the file browse, then get the filename and output it to an edit box
SRT>SRTSAVEPATH
SetDialogProperty>Dialog1,SAVEPATHBTN,DoBrowse,True
GetDialogProperty>Dialog1,SAVEPATHBTN,Filename,SAV_Filename
SetDialogProperty>Dialog1,SAVEPATH,Text,SAV_Filename
END>SRTSAVEPATH
SRT>SRTPSTPATH
SetDialogProperty>Dialog1,PSTPATHBTN,DoBrowse,True
GetDialogProperty>Dialog1,PSTPATHBTN,Filename,PST_Filename
SetDialogProperty>Dialog1,PSTPATH,Text,PST_Filename
END>SRTPSTPATH
SRT>SRTRUNEXPORT
GetDialogProperty>Dialog1,PSTPATH,Text,CMDPSTPATH
GetDialogProperty>Dialog1,SAVEPATH,Text,CMDSAVEPATH
Let>Pattern=\\$
RegEx>Pattern,CMDSAVEPATH,0,matches,num,1,,CMDSAVEPATH
MDL>%CMDPSTPATH%%CRLF%%CMDSAVEPATH%
END>SRTRUNEXPORT
Label>Exit
