joker teken gebruiken VBA achter formulier veld

[Peer44]

Hallo,

ik heb onderstaande code:

Shell "C:\WINDOWS\explorer.exe """ & Foldername & Me.Nummer & "", vbNormalFocus

het veld nummer bestaat zoals de naam doet vermoeden uit een nummer, dit is ALTIJD 5 digits

in windows verkenner is er een map met hetzelfde nummer alleen staat daar dan tekst achter, dus "12345 testmap"
hoe kan ik in de bovenstaande code een joker teken aanmaken zodat de folder met het nummer wordt geopend?

alvast bedankt.

 

[leofact]

Een jokerteken is mij niet bekend.
Wel kun je met de volgende code jouw doel bereiken

Private Sub OpenFolder()
Dim Foldername As String
Dim sFolder As String
Dim sNummer

sNummer = "12345" '=me.nummer
Foldername = "D:\" 'directory waarin gezocht wordt
sFolder = Dir$(Foldername, vbDirectory)
While Len(sFolder)
    If Strings.Left(sFolder, 5) = sNummer Then sNummer = sFolder
        sFolder = Dir$
Wend
    Shell "C:\WINDOWS\explorer.exe " & Foldername & sNummer, vbNormalFocus
End Sub

Mvg Leo

 

[Allard1979]

Peer,

Allereerst een vraag. Waarom de verwijzing naar een folder ipv het hele pad naar het bestand? Maar omdat het kerst is, toch een kleine reactie. Onderstaand een code die verwijst naar een map of het gehele bestand

Function padSelect()
Dim scherm as filedialog
Set Scherm = Application.FileDialog(msoFileDialogOpen)


With Scherm
.Show
.AllowMultiSelect = False
padSelect = Left$(.SelectedItems(1), InStrRev(.SelectedItems(1), "\")) & Mid$(.SelectedItems(1), InStrRev(.SelectedItems(1), "\") + 1) '.InitialFileName
End With

End Function

De left en instrev en de mid, geven aan of je alles of maar een deel wilt. Ik denk dat als je dit pad gebruikt om een bestand te openen, dat het gaat werken.

 

[Peer44]

Leo,

bedankt dit ziet er logisch uit.
Ga er mee aan de slag.

 

[leofact]

Oké,
Succes

Mvg Leo