Jump to content

VBS Dateiauswahl Dialog


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Geschrieben

Hallo

 

Vielen Dank, leider funktionieren die Scripts unter Windows 7 nicht mehr.

Hat noch jemand eine Idee?

Die Meldung bei Win 7 ist

 

Fehler ActiveX-Komponenten kann kein Objekt erstellen: 'UserAccounts.CommonDialog'

 

Code: 800A01AD

Geschrieben

Habe ein Script gefunden, das funktioniert. Das ganze geht über den IE, leider gehen kein UNC Pfade.

 


   On Error Resume Next
   Dim objIE, strSelected
   ChooseFile = ""
   Set objIE = CreateObject( "InternetExplorer.Application" )
   objIE.visible = False
   objIE.Navigate( "about:blank" )
   Do Until objIE.ReadyState = 4
   Loop
   objIE.Document.Write "<HTML><BODY><INPUT ID=""FileSelect"" NAME=""FileSelect"" TYPE=""file""><BODY></HTML>"
   With objIE.Document.all.FileSelect
       .focus
       .click
       strSelected = .value
   End With
   objIE.Quit
   Set objIE = Nothing
   ChooseFile = strSelected

msgbox ChooseFile

Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Erstelle ein Benutzerkonto oder melde dich an, um zu kommentieren

Du musst ein Benutzerkonto haben, um einen Kommentar verfassen zu können

Benutzerkonto erstellen

Neues Benutzerkonto für unsere Community erstellen. Es ist einfach!

Neues Benutzerkonto erstellen

Anmelden

Du hast bereits ein Benutzerkonto? Melde dich hier an.

Jetzt anmelden
×
×
  • Neu erstellen...