Function SelectFile( ) Dim $objSHELLexec, $CMD, $objSHELL $SelectFile="" $CMD='mshta.exe "about:" ' $objSHELL=CreateObject("WScript.Shell") $objSHELLexec=$objSHELL.Exec($CMD) $SelectFile=$objSHELLexec.StdOut.ReadLine( ) EndFunction