Új hozzászólás Aktív témák

• #10373 Fire/SOUL/CD félisten Oly #10372

  Új Válasz 2011-05-20 19:13:17 #10373

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Oly #10372 üzenetére

  Előbbire nem tudok így hirtelen mit mondani, másodikra viszont igen:

  Private Sub CommandButton1_Click()
  
  Dim MyApplication As Object
  Set MyApplication = CreateObject("Shell.Application"). _
  BrowseForFolder(0, "Kérem válasszon egy mappát...", 0, OpenAt)
  
  On Error Resume Next
  MsgBox (MyApplication.self.Path)
  On Error GoTo 0
  
  Set MyApplication = Nothing
  
  End Sub

Új hozzászólás Aktív témák