jednoduche zadavanie nazvov máš takto:
Kód:
Private Sub Command1_Click()
File = FreeFile
Open Text1.Text + ".txt" For Output As #File
Print #File, "Tvoj Text"
Close #File
End Sub
si sprav Text1 a Command1, a do toho commandu1 daj tento kod.
no, do textboxu iba napíšeš tvoj názov a k tomu sa pridá koncovka .txt
a súbor sa vytvorí s tvojím názvom, s akým chceš.
ak si to myslel tak, že cez menu ako Save As, tak to potrebujes si spraviť položku v menu, ktora bude ale fungovať podobne ako tento kod čo som ti sem hodil.
) . Ako vytvorit
