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