[VB6]: FSO mi crea due volte la stessa cartella

[andrea toniolo]

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

[oregon]

No ... non sei stato chiaro ...

[Boolean]

anche se non ho capito la natura del problema...

perchè non cerchi di sfruttare una matrice di controlli (sia per i TextBox che per le Labels)?

se lo facessi, tutto quel po' di righe si riassumerebbe in un piccolo ciclo:

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

Dim fso As FileSystemObject
Set fso = New FileSystemObject

For n = 1 to txtGruppo.Ubound
    With fso
        If txtGruppo(n).Text = "" Then
            Label(n) = "..."
        Else
            .CreateFolder (pht & txtGruppo(n).Text)
        End If
    End With
Next n

Boolean

[andrea toniolo]

scusa boolean, l'unica cosa che non ho capito e' questo : Ubound.
infatti mi manda in errore il programma, mi dice "necessario oggetto" e mi evidenzia la stringa con dentro Ubound.

[Boolean]

Originariamente inviato da Boolean
perchè non cerchi di sfruttare una matrice di controlli (sia per i TextBox che per le Labels)?

avevo premesso la necessità di utilizzare una matrice di controlli...
solo per i controlli facenti parte di auna matrice, è disponibile la proprietà UBound, che restituisce l'indice più alto presente in una matrice di controlli.

Boolean

[oregon]

Forse Andrea non ha mai utilizzato un array di controlli ... ne' sa come utilizzarlo ...

Hai necessita' di chiarire questo punto Andrea?

[andrea toniolo]

Originariamente inviato da oregon
Forse Andrea non ha mai utilizzato un array di controlli ... ne' sa come utilizzarlo ...

Hai necessita' di chiarire questo punto Andrea?

si

[andrea toniolo]

ho risolto

[oregon]

Originariamente inviato da andrea toniolo
ho risolto

E come?

[andrea toniolo]

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

Dim fso1 As FileSystemObject
Set fso1 = New FileSystemObject

For n = 0 To 9

With fso1
If txtGruppo(n).Text = "" Then
Label22.Caption = "..."
Else
.CreateFolder (pht & txtGruppo(n).Text)
End If
End With
Next n


ho creato la matrice di controlli.....