Öffnen des Windows File Dialog \\ ersatz "UserAccounts.CommonDialog"

  • VB.NET
  • .NET (FX) 3.0–3.5

    Öffnen des Windows File Dialog \\ ersatz "UserAccounts.CommonDialog"

    Hallo zusammen,

    und zwar suche ich einen passenden Ersatz für "UserAccounts.CommonDialog". Dieser wird ja unter 64 bit Systemen nicht mehr unterstütz.
    Das Makro lief unter Windows XP und soll jetzt unter Windows Server 2012 r2 64 bit laufen.
    Dabei sollte der Windows File Dialog geöffnet werden, um darüber eine Excel Datei einzulesen bzw. dessen Pfad.
    Der Excel-Pfad soll variabel bleiben, um Später weiter verarbeitet zu werden.
    Bin Anfänger in Sachen VB.

    Visual Basic-Quellcode

    1. Option Explicit
    2. dim objDialog, intResult, wshshell, key
    3. Set objDialog = CreateObject("UserAccounts.CommonDialog")
    4. objDialog.Filter = "Excel|*.xls"
    5. objDialog.FilterIndex = 1
    6. objDialog.InitialDir = "d:\"
    7. intResult = objDialog.ShowOpen
    8. set wshshell = createobject("Wscript.shell")
    9. wshshell.regwrite "HKEY_CURRENT_USER\temp\dir", objDialog.FileName


    Hat jemand eine Idee.


    Danke schonmal im voraus

    mfg Martin3G

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Martin3G“ ()