Nel sorgente avrei previsto 3 textBox:
1) TextDir per indicare la cartella
2) TextFil per indicare il nome del file
3) Text1 peril testo da scrivere nel file
Questo risulta essere il codice:
Private Sub Command1_Click()
'in TextDir c'è il percorso
'in TextFil c'è il nome del file
'------
Dim LPath As String, Lfile As String
Dim Response As Integer
LPath = Trim$(TextDir.Text)
If LPath = "" Then
MsgBox "Indicare la cartella"
TextDir.SetFocus
Exit Sub
End If
Lfile = Trim$(TextFil.Text)
If Lfile = "" Then
MsgBox "Indicare il nome del file"
TextFil.SetFocus
Exit Sub
End If
'controllo che esista la cartella
If Dir(LPath, vbDirectory) = "" Then
If MsgBox("Cartella '" & LPath & "' inesistente; la creo", vbQuestion + vbYesNo, "NUOVA CARTELLA") = vbNo Then Exit Sub
'altrimenti la creo
MkDir LPath
End If
'se non c'è aggiungo la barra
If Right$(LPath, 1) <> "\" Then LPath = LPath & "\"
'controllo che non esista il file
If Dir(LPath & Lfile, vbNormal) > "" Then
If MsgBox("File '" & Lfile & "' già esistente; lo ricreo", vbQuestion + vbYesNo, "FILE ESISTENTE") = vbNo Then Exit Sub
End If
'finalmente lo rigenero
Open LPath & Lfile For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Buon lavoro