czjt1234

好象有个com对象可以限制的扩展名的，但是记不得了

要不你检查扩展名不对就返回重新选择，循环

czjt1234

Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
objDialog.FileName = "test"
objDialog.FileType = ".txt"
复制代码

Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "VBS File|*.vbs"
复制代码

找了2个com对象，可惜在win7x64中均测试失败

czjt1234

试试那个修改cmd窗口大小和位置的啥命令的，mode还是啥的