Dim pht As String
pht = App.path & "\" & "Source" & "\" & "Machine" & "\" & txtName.Text & "\"

Dim fso As FileSystemObject
Set fso = New FileSystemObject

With fso
If txtGruppo1.Text = "" Then
Label22 = "..."
Else
.CreateFolder (pht & txtGruppo1.Text)
End If

If txtGruppo2.Text = "" Then
Label22 = "..."
Else
.CreateFolder (pht & txtGruppo2.Text)
End If

If txtGruppo3.Text = "" Then
Label22 = "..."
Else
.CreateFolder (pht & txtGruppo3.Text)
End If

If txtGruppo4.Text = "" Then
Label22 = "..."
Else
.CreateFolder (pht & txtGruppo4.Text)
End If

If txtGruppo5.Text = "" Then
Label22 = "..."
Else
.CreateFolder (pht & txtGruppo5.Text)
End If

If txtGruppo6.Text = "" Then
Label22 = "..."
Else
.CreateFolder (pht & txtGruppo6.Text)
End If

If txtGruppo7.Text = "" Then
Label22 = "..."
Else
.CreateFolder (pht & txtGruppo7.Text)
End If

If txtGruppo8.Text = "" Then
Label22 = "..."
Else
.CreateFolder (pht & txtGruppo8.Text)
End If

If txtGruppo9.Text = "" Then
Label22 = "..."
Else
.CreateFolder (pht & txtGruppo9.Text)
End If

If txtGruppo10.Text = "" Then
Label22 = "..."
Else
.CreateFolder (pht & txtGruppo10.Text)
End If

End With
vedete le stringhe in rosso? qualcuno sa spiegarmi perche' mi crea quelle cartelle doppie? : creandole doppie mi va in errore il programma dicendo "file gia esistente".
mi e' bastato aggiungere la stringa "MsgBox pht & txtGruppo1.Text" prima di ".CreateFolder (pht & txtGruppo1.Text)" per capire che me la crea due volte, il msgbox appare due volte consicutive con la stessa dir scritta.

spero di essere stato chiaro, se avete bisogno di delucidazioni sul problema chiedete pure