VBS編程-如何將檔案路徑選擇至指定位置 - 伊莉討論區

請教各位大大，我這裡有一鍵安裝網路印表機的VBScript 執行檔

中的"./TGR62ENU.INF" 可以用開啟檔案的方式選擇路徑，並將路徑填入

ipaddress = InputBox("請輸入印表機IP位置"&vbCr&"例如:"&vbCr&"192.168.0.100"&vbCr&"一定要輸入ip位置否則無法安裝完成","印表機IP位置 V0.3","192.168.0.100")
Set objWMIService = GetObject("winmgmts:")
Set objNewPort = objWMIService.Get _
("Win32_TCPIPPrinterPort").SpawnInstance_
objNewPort.Name = "IP_" & ipaddress '印表機連接埠名稱
objNewPort.Protocol = 1
objNewPort.HostAddress = ipaddress '網路印表機IP
objNewPort.PortNumber = "9100" '印表機連接埠號
objNewPort.SNMPEnabled = False '是否使用SNMP
objNewPort.Put_
MsgBox objNewPort.Name
MsgBox objNewPort.HostAddress
Printer_Name = "SHARP AR-M266 T1" '印表機名稱
PrinterDriver_inf= "./sf0bwcht.inf" '驅動程式inf檔案位置
Printer_Model = "SHARP AR-M276 T1"'驅動程式模組
sCmd = "rundll32.exe printui.dll,PrintUIEntry /if /b """ &Printer_Name& """ /f """ _
& PrinterDriver_inf &""" /r" _
& " """ &objNewPort.Name& """ /m """&Printer_Model&""
cmd = "control printers"
DefaultPrint = "rundll32 printui.dll,PrintUIEntry /y /n """ &Printer_Name&""
Set oShell = CreateObject("WScript.Shell")
oShell.Run sCmd, 1, True
oShell.Run cmd
oShell.Run DefaultPrint

複製代碼