Script für WIN 7 um den explorer zu öffnen
Hallo Zusammen,
habe eine script unter XP wie folgt, den ich an WIN 7 anpassen muss.
Sub cmd_openOBMAAufn3_Click()
Set oShell = Item.Application.CreateObject(\"WScript.Shell\")
strOBPath = Item.UserProperties.Find(\"MAtextOBPathAufn3\").Value
Item.GetInspector.ModifiedFormPages(\"MANGEL/VERSICHERUNGSF - Aufnahme\").Controls(\"img_OBMAAufn3\").Picture = LoadPicture(strOBPAth)
\'Öffene Bilddatei mit Windows Bild- und Faxanzeige
oShell.run \"rundll32.exe %systemroot%\\system32\\shimgvw.dll,ImageView_Fullscreen \" & strOBPath
End Sub
Sub cmd_saveOBMAAufn3_Click()
Set oUAC = Item.Application.CreateObject(\"UserAccounts.CommonDialog\")
oUAC.Filter = \"Alle Bilddateien (*.jpg,*.gif,*.bmp)|*.jpg;*.gif;*.bmp\"
oUAC.ShowOpen
Vielen Dank im voraus
Uniwop
habe eine script unter XP wie folgt, den ich an WIN 7 anpassen muss.
Sub cmd_openOBMAAufn3_Click()
Set oShell = Item.Application.CreateObject(\"WScript.Shell\")
strOBPath = Item.UserProperties.Find(\"MAtextOBPathAufn3\").Value
Item.GetInspector.ModifiedFormPages(\"MANGEL/VERSICHERUNGSF - Aufnahme\").Controls(\"img_OBMAAufn3\").Picture = LoadPicture(strOBPAth)
\'Öffene Bilddatei mit Windows Bild- und Faxanzeige
oShell.run \"rundll32.exe %systemroot%\\system32\\shimgvw.dll,ImageView_Fullscreen \" & strOBPath
End Sub
Sub cmd_saveOBMAAufn3_Click()
Set oUAC = Item.Application.CreateObject(\"UserAccounts.CommonDialog\")
oUAC.Filter = \"Alle Bilddateien (*.jpg,*.gif,*.bmp)|*.jpg;*.gif;*.bmp\"
oUAC.ShowOpen
Vielen Dank im voraus
Uniwop
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 168594
Url: https://administrator.de/forum/script-fuer-win-7-um-den-explorer-zu-oeffnen-168594.html
Ausgedruckt am: 21.04.2025 um 23:04 Uhr