Need help cloning? Visit
is a free Git and Mercurial client for Windows.
is a free Git and Mercurial client for Mac.
dim iPathItems as integer
dim asPathList( 100 ) as string
+ dim iWait as integer ' some increment variable
printlog( CFN & "Enter with option (File): " & cName )
'///+<li>If a fully qualified path has been provided we have to split it up</li>
'///+<li>get the number of items in the filepicker</li>
+ iWait = 0
+ while ( DateiAuswahl.getItemCount() = 0 )
+ wait( 100 )
+ iWait = iWait + 1
+ if ( iWait = 10 ) then
+ warnlog( "Filepicker is not populated within reasonable timeframe, aborting" )
+ kontext "OeffnenDlg"
+ hFindFileObjectViaFileOpen() = 0
+ exit function
+ printlog( "Waiting for filepicker list to populate..." )
iFileOpenItemCount = DateiAuswahl.getItemCount()
'///+<li>Jump to the first item in the filelist and select it with SPACE</li>