vbs:win2000下实现多选文件,该怎么解决

Set objDialog = CreateObject("UserAccounts.CommonDialog")objDialog.Filter = "VBScript Scripts|*.vbs|All Files|*.*"objDialog.Flags = &H0200objDialog.FilterIndex = 1objDialog.InitialDir = "e:\"intResult = objDialog.ShowOpenIf intResult = 0 Then    Wscript.QuitElse    arrFiles = Split(objDialog.FileName, " ")    For i = 1 to Ubound(arrFiles)        strFile = arrFiles(0) & arrFiles(i)        Wscript.Echo strFile    NextEnd If