Prikazi cijelu temu 15.02.2014 09:24
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Ili možda isto sa VBA
Probaj sa ovom procedurom.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function ZatvoriF(ImeFoldera As String)
  2. Dim Sel
  3. Dim ApiSel
  4.  
  5. Set Sel = CreateObject("shell.application")
  6. For Each ApiSel In Sel.Windows
  7.     If ApiSel.Document.folder.self.Path = ImeFoldera Then ApiSel.Quit
  8. Next
  9. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.