[Pytanie] Folder HELP

[MiszczuArtKox]

Witam jak zrobić coś takiego że po wpisaniu dotextbox1 np folder 1 zrobi się folder w jakimś folderze a po wpisaniu w textbox2 (wyszukiwarka) otworzył się folder 1 ZA POMOC WIELKIE THX

[Sunnyline2]

po 1. do labela nie da się nic wpisać

po 2. Nie wiem o co ci chodzi.

[Inorist™]

IO.Directory.Create(textbox1.text)

--------------------------------------------

Shell("explorer " & textbox2.text)

[MiszczuArtKox]

sorki chodziło mi o textbox

 

Up like sprawdzę i powiem czy pomogło a i chce aby szukało folderu tylko w folderze "Program" a nie na twardzielu ;P

[Inorist™]

Na szybko pisane, ale powinno działać:

    Function SzukajFolderu(ByVal W_jakim_katalogu As String, ByVal nazwa_folderu As String) As String()
        Dim Zwracane(255) As String
        Dim len As Integer = 0

        For Each name As String In My.Computer.FileSystem.GetDirectories(W_jakim_katalogu)
            If nazwa_folderu = Mid(name, name.LastIndexOf("\") + 2, name.Length) Then
                Zwracane(len) = name
                len += 1
            End If
        Next
        Return Zwracane
    End Function

Użycie

        Dim Znalezione() As String = SzukajFolderu("C:\", "Intel")
        For index = 0 To Znalezione.GetUpperBound(0)
            Console.WriteLine(Znalezione(index))
        Next