Just to complicate things a little more here's another approach to save files ;\)
 Code:
Dim $objDialog
$objDialog = CreateObject("UserAccounts.CommonDialog")
$objDialog.Filter = "KiX Scripts (*.kix)|*.kix|"
$objDialog.FilterIndex = 1
$objDialog.InitialDir = "C:\"
$intResult = $objDialog.ShowOpen
? $objDialog.FileName


Edit: Sorry Cj, didn't see you mention this COM object already

Edited by apronk (2008-04-08 11:01 AM)