'打开文件
 pimpath = GetFile()
 
 
'打开文件
 Function GetFile()
      Dim objDialog    
      If WScript.Arguments.Count < 1 Then 
                 Set objDialog = CreateObject("UserAccounts.CommonDialog")
                 'objDialog.InitialDir = "."
                 objDialog.Filter = "pim|*.pim|All Files|*.*"
                 objDialog.FilterIndex = 1
                  If objDialog.ShowOpen Then
                         GetFile = objDialog.FileName
                  Else
                      Set objDialog = Nothing
                      WScript.Quit
                  End If
                 Set objDialog = Nothing
                Else
          GetFile = WScript.Arguments(0)
       End If
 End Function
复制代码