rs = InputBox("please enter a file name", "save data", "st18-0") frs = "C:\ST18\ST19\" & rs & ".18" rs = "" For i = 1 To 12 rs += rm(i) + "\n" Next My.Computer.FileSystem.WriteAllText(frs, rs, False)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)