Ciao!
Ieri ho avuto modo di andare avanti sul "progetto" e posso dire che sono molto contento di come è uscito.
Ho riletto più volte quello che mi hai scritto e ho cercato di mettere in pratica sia la tua idea che la mia e alla fine sono riuscito a creare le tanto agognate cartelle!
il codice è questo:
codice:
Imports System
Imports System.IO
Imports System.Collections
Imports System.Windows.Forms
Public Class Form1
Private Sub Form1_Load() Handles MyBase.Load
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList
Dim tipo_drive As String
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 "Network"
ComboBox1.Items.Add(My.Computer.FileSystem.Drives(a).ToString)
End Select
Next
ComboBox2.Items.Add("Immagini")
ComboBox2.Items.Add("Video")
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim percorso As String = ComboBox1.SelectedItem & TextBox1.Text
Dim percorso1 As String = percorso
Dim Img = "Immagini"
Dim Vid = "Video"
If ComboBox1.SelectedItem = "" Then
MsgBox("Selezionare un unità di rete")
Return
Else
If TextBox1.Text = "" Then
MsgBox("Inserire il nome della cartella")
Return
Else
If ComboBox2.SelectedItem = "" Then
MsgBox("Seleziona il tipo di lavoro")
Return
End If
End If
End If
Try
If Directory.Exists(percorso1) = False Then
Directory.CreateDirectory(percorso1)
MsgBox("Cartella creata!")
Else
If Directory.Exists(percorso1) = True Then
MsgBox("La cartella è già esistente!")
End If
End If
Catch ex As Exception
Console.WriteLine("Processo Fallito", ex.ToString())
End Try
Dim sotto_cartelle As New ArrayList
Select Case ComboBox2.SelectedItem
Case Img
sotto_cartelle.Add("imgTest")
sotto_cartelle.Add("imgDef")
sotto_cartelle.Add("renderassets")
Case Vid
sotto_cartelle.Add("scene")
sotto_cartelle.Add("maps")
sotto_cartelle.Add("docs")
sotto_cartelle.Add("xref")
sotto_cartelle.Add("proxy")
sotto_cartelle.Add("models")
sotto_cartelle.Add("containers")
sotto_cartelle.Add("imgTest")
sotto_cartelle.Add("renderpresets")
sotto_cartelle.Add("renderassets")
sotto_cartelle.Add("reference")
sotto_cartelle.Add("editing")
sotto_cartelle.Add("post")
End Select
Try
Directory.CreateDirectory(percorso)
For a = 0 To sotto_cartelle.Count - 1 Step 1
Directory.CreateDirectory(percorso & "\" & sotto_cartelle(a))
Console.WriteLine("creato percorso: " & percorso & "\" & sotto_cartelle(a))
Next
Catch ex As Exception
MsgBox("Si è verificato un errore:" & vbCrLf & ex.Message)
sotto_cartelle = Nothing
Return
End Try
End Sub
End Class
Ha un pò di imperfezioni che però oggi pensavo di risolvere,tipo quella famosa variabile percorso1 che vado ad impostare e che non serve a una beata cippa se non ai miei trip mentali!
Pensavo però di implementare due funzioni:
1.Alla selezione dell'unità di rete dare la possibilità di:
- A) Scegliere di creare una nuova cartella col nome del textbox
- B) Scegliere una delle cartelle presenti (su quell'unità di rete) e creare la cartella col nome del textbox (all'interno della cartella scelta prima)
2.La possibilità di avere un Browse folder (oltre alla scelta dell'unità)
Riusciresti a linkarmi qualcosa per capire almeno da dove iniziare? 
ti ringrazio ancora!
Ciau