folder sluiten met VBA

[DirkVS]

Beste forumleden

op een formulier heb ik een opdrachtknop waarmee ik een folder open.

Daarvoor gebruik ik volgende code:

sFolder = "C:\temp"
Application.FollowHyperlink sFolder

Maar, met welk commando kan ik die folder dan sluiten?

gr,

DirkVS

 

[edmoor]

Dat kan met dit in een Module. De Sub Tst is dan een voorbeeld die overal in je code kan staan:

Public Sub SluitVenster(Venster)
    Dim sh As Object
    Set sh = CreateObject("shell.application")

    Dim w As Variant
    For Each w In sh.Windows
        If w.LocationURL = "file:///" & Replace(Venster, "\", "/") Then
            w.Quit
        End If
    Next w
End Sub

Sub Tst()
    sFolder = "C:\temp"
    SluitVenster (sFolder)
End Sub

 

[DirkVS]

@ edmoor

Dank voor je snelle reactie

maar, ... ik ben een absolute leek op gebied v VBA

Wat moet ik doen om dat in een module te zetten?

gr

DirkVS

 

[JohanRVT]

Interessant EdMoor; ik gebruik een quasi gelijkaardige code (zonder module) om de specifieke subfolders van de bewoners van ons WZC te openen maar sommige bedienden sluiten die folders nooit zodat er soms een tiental vensters open staan van verschillende bewoners. Hoe sluit je alle vensters die Access opende tegelijk zonder daarbij de vensters te sluiten die Access niet opende?

 

[edmoor]

De code kan niet weten welke folders wel en welke niet door Access zijn geopend.
Je kan een lijstje bijhouden van welke vensters geopend kunnen zijn en die dan allemaal sluiten.

 

[edmoor]

@DirkVS:
Kijk hier eens:
https://www.learnaccessnow.com/chap20c.html

 

[DirkVS]

@ edmoor

het werkt!

dankjewel!!!

 

[edmoor]

Goed gedaan :thumb:

 

[OctaFish]

Prachtig hoe mensen zich bezighouden met onnozele problemen die gebruikers zichzelf op de hals halen . In mijn optiek is een gebruiker zelf verantwoordelijk voor het sluiten van mappen; dat heeft niks met de database verder te maken. En als het gaat om het openen van documenten, die in de db staan: dat kan veel simpeler, daar heb je geen verkenner voor nodig.