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