|
Grazie al vostro aiuto ho quasi finito il mio minuscolo progetto, quindi grazie tante. Devo risolvere un problema per ultimarlo, mi spiego meglio.
Praticamente il codice fa' questo : Scelgo una data dalla databox e clccando sul pulsante command1 tale data passa anche nella text1 e fin qui' tutto ok, adesso cliccando sul pulsante commandcreaprogetto vorrei che tale data che appare nella text1 diventi il nome di una cartella in c:, ma non funziona e non riesco a capire perche'.
Dim nuova
Dim I As Integer
Dim K As Integer
Dim Tx As Integer
Dim Ty As Integer
Private Sub Command1_Click()
Text1.Text = DataBox1.Text & ""
End Sub
Private Sub Commandcreaprogetto_Click()
nuova = Text1.Text
If nuova = "" Then Exit Sub
On Error GoTo errore
MkDir ("c:\" & nuova)
MkDir "c:\" & nuova & "\Copertina"
MkDir "c:\" & nuova & "\Facciata1"
Label1.Visible = False
Exit Sub
errore:
Label1.Visible = True
End Sub
| 
