Originariamente inviato da diagre
Grazie a te sto viaggiando spedito come un treno!
Di niente! Hai fatto tutto da solo, io ti ho solo indicato dove guardare...e considera che sono alle prime armi anch' io...non posto tante "domande" perchè mi piace sbatterci la testa e arrivarci da solo ed in genere basta cercare in rete, creo solo qualche programmino per hobby.

1. Impostare un percorso mediante il primo combobox
2. impostare il nome della cartella mediante il textbox
3. creare delle sottocartelle nella cartella creata sopra
Mai fatto! Nel senso delle unità in rete.
Ho provato a scrivere qualche riga per imparare una cosa nuova ma non so come si comporta se le unità in rete sono disconnesse e non ho possibilità di provare.
Se vuoi approfondire qualche funzione che ho usato puoi scrivere qualcosa tipo 'msdn DriveType' su un motore di ricerca, il primo risultato di google è http://msdn.microsoft.com/it-it/libr...drivetype.aspx
Di seguito il codice, molto grezzo, per ottenere il percorso tramite i tre "punti". Bisogna implementare la verifica se la cartella principale esiste e che la textbox non contenga caratteri non consentiti, si allunga troppo...e devo andare a mangiare...
Studialo un pò, e se vuoi, chiedi pure:
codice:
Public Class Form1

    Private Sub Form1_Load() Handles MyBase.Load
        ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
        ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList
        Dim tipo_drive As String
        '>Case "Network"< aggiunge i drive di rete presenti su
        ' "risorse del computer", verificare il comportamento
        ' se il drive non è connesso.
        For a = 0 To My.Computer.FileSystem.Drives.Count - 1 Step 1
            tipo_drive = My.Computer.FileSystem.Drives(a).DriveType.ToString
            Select Case tipo_drive
                Case "Fixed"
                    ComboBox1.Items.Add(My.Computer.FileSystem.Drives(a).ToString)
                Case "Network"
                    ComboBox1.Items.Add(My.Computer.FileSystem.Drives(a).ToString)
            End Select
        Next
        ComboBox2.Items.Add("APPLICATIVO REAL TIME")
        ComboBox2.Items.Add("IMMAGINI")
        ComboBox2.Items.Add("VIDEO ")
    End Sub

    Private Sub Button1_Click() Handles Button1.Click
        If ComboBox1.SelectedItem = "" Then
            MsgBox("seleziona un percorso")
            Return
        Else
            If TextBox1.Text = "" Then
                MsgBox("manca il nome della cartella")
                Return
            Else
                If ComboBox2.SelectedItem = "" Then
                    MsgBox("seleziona il tipo di lavoro")
                    Return
                End If
            End If
        End If
        Dim percorso As String
        Select Case ComboBox2.SelectedItem
            Case "APPLICATIVO REAL TIME"
                percorso = ComboBox1.SelectedItem & TextBox1.Text & "\" & ComboBox2.SelectedItem
            Case "IMMAGINI"
                percorso = ComboBox1.SelectedItem & TextBox1.Text & "\" & ComboBox2.SelectedItem
            Case "VIDEO"
                percorso = ComboBox1.SelectedItem & TextBox1.Text & "\" & ComboBox2.SelectedItem
        End Select
    End Sub
End Class