Folder openen in Thumbnails

[Rommyke]

Hallo ,


Met onderstaande code kan je een folder openen

Shell "explorer.exe " , vbNormalFocus

Is er iemand die weet wat ik erbij moet voegen om deze folder altijd in Thumbnails view te openen ?

Groetjes
Romain

 

[richard1970]

Zie Excel helpfile in VBA:

Shell, constanten

De volgende constanten kunt u overal in uw programmacode gebruiken in plaats van de eigenlijke waarden:

Constante Waarde Beschrijving
vbHide 0 Venster is verborgen en de focus wordt gegeven aan het verborgen venster.
VbNormalFocus 1 Venster heeft de focus en wordt weergegeven in het oorspronkelijke formaat en op de oorspronkelijke positie.
VbMinimizedFocus 2 Venster wordt weergegeven als pictogram met focus.
VbMaximizedFocus 3 Venster wordt als maximumvenster weergegeven, met focus.
VbNormalNoFocus 4 Venster wordt weergegeven in het meest recente formaat en de meest recente positie. Het huidige actieve venster blijft actief.
VbMinimizedNoFocus 6 Venster wordt weergegeven als pictogram. Het huidige actieve venster blijft actief.

Ik ben benieuwd wat waarde = 5 oplevert!

Richard

 

[Withaar]

Alt toets optie in combinatie met Sendkeys

Private Sub CommandButton1_Click()
Shell "explorer.exe ", vbNormalFocus
' Miniatuur = R
' Tegels = T
' Pictogrammen = C
' Lijst = L
' Details = E
DoEvents
SendKeys ("%lr") ' r voor Miniatuur.
End Sub

Ben niet helemaal zeker of dit altijd goed gaat, sendkeys moet wachten tot het venster open is anders werkt het niet.
DoEvents zou hier voor moeten zorgen, maar lijkt soms tot niet lang genoeg te wachten.

N.b. Dit werkt alleen in een Nederlandse windows versie. In de Engelse windows versie moet je andere letters gebruiken.

 

[Rommyke]

Ben niet helemaal zeker of dit altijd goed gaat, sendkeys moet wachten tot het venster open is anders werkt het niet.
DoEvents zou hier voor moeten zorgen, maar lijkt soms tot niet lang genoeg te wachten.

N.b. Dit werkt alleen in een Nederlandse windows versie. In de Engelse windows versie moet je andere letters gebruiken.

Hoi Withaar ,

Bedankt .

Inderdaad de DoEvents werkt niet altijd , heb daarom een loop gemaakt

 Sub Openen()

    Dim Folder As String
       
        Folder = "c:\"       
        Shell "explorer.exe " & Folder, 3
        For u = 1 To 50
            DoEvents
        Next u
        SendKeys ("%Vh")
end sub

voor de engelse versie gelden de afkortingen :

H = Thumbnails
S = Tiles
N = Icons
L = List
D = Details
P = Filmstrip

Groetjes
Romain