7 replies to this topic

[Ross Bevin]

Hi there,

 

We need a solution whereby a user launches a window from ProIV (ProIV Client, not Open Client) that allows the user to browse folders on the Client side. We only want the user to be able to drill into folders they have permission for. We want them to be able to select a file and have that file copied to a folder on the ProIV server side. We are running the latest version of ProIV in a Windows environment.

 

If anyone can shed some light on available solutions I would greatly appreciate it.

 

Regards

Ross Bevin

[Wim Soutendijk]

Hi Ross,

 

This is how I do it:

Add an active x component CommonDialog to the statics of your screen function:

 

In cycle default logic:

CommonDialog.Visible = False

 

then define a button "Open file" in your screen with an event that calls this logic:

 

   CommonDialog.ShowOpen()

   $$FILENAME = CommonDialog.FileName

   $ServerFile = 'c:/temp/download' + @TERM

   #E = Client.Put($ServerFile,$$FILENAME)

Now the file is on your server, and you can call a cycle to open the file and process it.

 

regards,

wim 

 

[Ross Bevin]

Hi Wim,

 

Thanks for the reply. I'm actually looking for a solution where ProIV launches a "Windows Explorer" type of window. The user would browse folders that they have permissions on, select a file and copy it back to the server side.

 

Regards

Ross

[Wim Soutendijk]

just try it, that's exactly what this code will do.

[Ross Bevin]

OK! Will do Wim.

[chuckl]

I am trying to use CommonDialog.ShowSave() and can't get it to work. the active x component CommonDialog is there, it won't invoke the window. Any ideas?

 

$FontName = "MS Sans Serif"

#ColorR = 128

#ColorG = 153

#ColorB = 234

$FontBold = 'Y'

$DialogTitle = 'Soloman Refund Export Location'

$FileName = $SOLOMAN_LOCATION

$InitDir = $SOLOMAN_LOCATION

$FileTitle = 'RefundsOut.txt'

$DefaultExt = 'Text File (*.txt)'

CommonDialog.DialogTitle = $DialogTitle

CommonDialog.FileName = $FileName

CommonDialog.Filter = $DefaultExt

CommonDialog.InitDir = $SOLOMAN_LOCATION

CommonDialog.FileTitle = $FileTitle

CommonDialog.ShowSave()

$FileTitle = CommonDialog.FileTitle

$FileName = CommonDialog.FileName

$FILE_NAME = $FileName

$SOLOMAN_LOCATION = $FILE_NAME

solomanlocation.Refresh()

[chuckl]

Cancel that. I had invalid characters in Filename, it works now.

[Ross Bevin]

Hi everyone,

 

I forgot to follow up on this posting after Wim gave us the example coding. We did what he suggested and it indeed works. It does exactly what we wanted; thanks again Wim.

 

Regards

Ross