Zoeken van mappen in windows op beginnaam van de map

[shroud]

Hoi iedereen,

Ik ben een beetje met visual basic aan het stoeien.
ik loop alleen ergens op vast.

Ik heb een functie gemaakt dat hij automatisch zoekt naar een map op je netwerk schijf
(in dit geval H: ) In deze map staan onwijs veel mappen. Deze beginnen allemaal met een uniek 6 cijferige nummertje. De rest van de map naam is niet belangrijk, want ik wil natuurlijk
alleen op dat nummer kunnen zoeken.
Dus bv: 123456 Jan klaassen in utrecht

mijn code ziet er tot nu toe zo uit:
Private Sub btnOpenWindowsExplorer_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles btnOpenWindowsExplorer.Click

Const QUOTE As String = """"
Dim path As String

path = Replace("C:\program files\" + TextBox1.Text, QUOTE, QUOTE & QUOTE)
Shell("explorer.exe /e, " & path, AppWinStyle.NormalFocus)
End Sub

hij moet dus een zoekfunctie uitvoeren naar het nummertje(wat in de textbox1 wordt ingetikt) waardoor hij een windows explorer venster opent in deze juiste lokatie.

ik hoop dat iemand mij hiermee kan helpen!

 

[Guus2005]

Maak gebruik van het Dir commando

In Access:

Public Sub OpenWindowsExplorer()

    Const QUOTE As String = """"
    Dim path As String
    Dim strDir As String
    
    path = Replace("H:\User\" + InputBox("Geef nummer op", "Doit", "123456"), QUOTE, QUOTE & QUOTE)
    
    strDir = Dir(path & "*", vbDirectory)
    
    Shell "explorer.exe /e, " & strDir, vbNormalFocus

End Sub

Ik heb je tekst box vervangen door een inputbox.

strDir is leeg als je een getal hebt opgegeven die niet bestaat.

HTH

 

[shroud]

Maak gebruik van het Dir commando

In Access:

Public Sub OpenWindowsExplorer()

    Const QUOTE As String = """"
    Dim path As String
    Dim strDir As String
    
    path = Replace("H:\User\" + InputBox("Geef nummer op", "Doit", "123456"), QUOTE, QUOTE & QUOTE)
    
    strDir = Dir(path & "*", vbDirectory)
    
    Shell "explorer.exe /e, " & strDir, vbNormalFocus

End Sub

Ik heb je tekst box vervangen door een inputbox.

strDir is leeg als je een getal hebt opgegeven die niet bestaat.

HTH

Alleen werkt dit dus ook niet
Ik wil alleen geen input box gebruiken.
Ik heb zelf namelijk een mooi schermpje zitten maken waar je het nummer in
het textbox1 kan plaatsen en je op een knop drukt zodat je dan gelijk wordt verwezen naar
de explorer.

Maar ik wil dus zoeken op een nummer dat kan 123456 zijn maar het zijn ongeveer 300 mappen met een ander uniek nummer. Daar achter staat dan tekst wat betrekking heeft tot het nummer ( dit is dan dus in de mapnaam)
Ik wil dus alleen zoeken op het nummertje en de rest moet hij dan over slaan.
Ik ben al 2 weken op internet aan het struimen om dit probleem op te lossen maar ik kom er maar niet uit!
Ik hoop dat iemand een oplossing heeft...

 

[Guus2005]

Dat form heb ik niet dus ik heb even een inputbox gebruikt. Ik heb het getest op directory naam "123456 aap" en "654321 noot". In beide gevallen werd de explorer op de juiste manier geopend.

Dus waarschijnlijk is er iets aan de hand wat je nog niet verteld hebt.