Создание имени файла из значения в переменной

IO.File.Create("Путь с конечным именем файла", FileMode.Create)

Dim vvI As String = "C:\text.txt"
IO.File.Create(vvI, FileMode.Create)

Dim vvI As String = "C:\text.txt"
IO.File.Create(vvI, FileMode.Create).Dispose()

If ... Then ... Else

IO.File.AppendAllText("куда", "что")

vpath = "C:\FILE.txt"
data1 = "Bicycle"
data2 = "Motorcycle"
data3 = "Quadrocycle"
data4 = "Car"
data5 = "Tank"
 
        IO.File.AppendAllText(vpath, data1, System.Text.Encoding.Default)
        IO.File.AppendAllText(vpath, data2, System.Text.Encoding.Default)
        IO.File.AppendAllText(vpath, data3, System.Text.Encoding.Default)
        IO.File.AppendAllText(vpath, data4, System.Text.Encoding.Default)
        IO.File.AppendAllText(vpath, data5, System.Text.Encoding.Default)

IO.File.AppendAllText(vpath, data1 & vbCrLf, System.Text.Encoding.Default)

Dim MyFile as String = "C:\трындырынды_vb.net"
Dim swMyFile As StreamWriter = New StreamWriter(MyFile ,True, System.Text.Encoding.GetEncoding(866))'True - открытие с дозаписью
 
swMyFile.WriteLine("жук")
swMyFile.WriteLine("олень")
swMyFile.WriteLine("бабОчка")
swMyFile.Close()
 
'Результат:
'жук
'олень
'бабОчка

Dim swMyFile As StreamWriter = New StreamWriter(MyFile ,True, System.Text.Encoding.GetEncoding(866))

Dim lessmass() As String = IO.File.ReadAllLines("TXT\FILE_with_discipline.txt", _
                                                                System.Text.Encoding.Default) 'считывание файла в переменную LESSMASS
 
'распихивание в комбо боксы
                cb1stTop.Items.AddRange(lessmass) '1 пара Верхней недели
                cb1stBot.Items.AddRange(lessmass) '1 пара Нижней недели
                cb2ndTop.Items.AddRange(lessmass) '2 пара Верхней недели
                cb2ndBot.Items.AddRange(lessmass) '2 пара Нижней недели
                cb3rdTop.Items.AddRange(lessmass) '3 пара Верхней недели
                cb3rdBot.Items.AddRange(lessmass) '3 пара Нижней недели
                cb4thTop.Items.AddRange(lessmass) '4 пара Верхней недели
                cb4thBot.Items.AddRange(lessmass) '4 пара Нижней недели

Dim srReadingFile as StreamReader = New StreamReader("vb.net", System.Text.Encoding.Default)
Dim LineFromFile as String
 
While srReadingFile.Peek > -1'читаем, пока не конец файла
   LineFromFile = srReadingFile.ReadLine()
   Select Case LineFromFile.SubString(0, 1)'извлекаем первый символ строки
      Case "1"
         ComboBox1.Items.Add(LineFromFile.SubString(1)'записуем строку, пропуская первый символ
      Case "2"
         ComboBox2.Items.Add(LineFromFile.SubString(1)'записуем строку, пропуская первый символ
   End Select
End While

swWriter.WriteLine("BZzzz")

swWriter.Flush()

Dim srReadingFile as StreamReader = New StreamReader("vb.net", System.Text.Encoding.Default)
Dim LineFromFile as String
 
While srReadingFile.Peek > -1'читаем, пока не конец файла
   LineFromFile = srReadingFile.ReadLine()
   Select Case LineFromFile.SubString(0, 1)'извлекаем первый символ строки
      Case "1"
         ComboBox1.Items.Add(LineFromFile.SubString(1)'записуем строку, пропуская первый символ
      Case "2"
         ComboBox2.Items.Add(LineFromFile.SubString(1)'записуем строку, пропуская первый символ
   End Select
End While

swWriter.WriteLine("BZzzz")

swWriter.Flush()

Dim srReadingFile As StreamReader = New StreamReader("TXT\tmzapoln.txt", System.Text.Encoding.Default)
                Dim LineFromFile As String
 
                While srReadingFile.Peek > -1 'читаем, пока не конец файла
                    LineFromFile = srReadingFile.ReadLine()
                    Select Case LineFromFile.Substring(0, 1) 'извлекаем первый символ строки
                        Case "%"
                            'записываем строку, пропуская первый символ
                            cb1stTop.Items.Add(LineFromFile.Substring(1))
                            cb1stBot.Items.Add(LineFromFile.Substring(1))
                            cb2ndTop.Items.Add(LineFromFile.Substring(1))
                            cb2ndBot.Items.Add(LineFromFile.Substring(1))
                            cb3rdTop.Items.Add(LineFromFile.Substring(1))
                            cb3rdBot.Items.Add(LineFromFile.Substring(1))
                            cb4thTop.Items.Add(LineFromFile.Substring(1))
                            cb4thBot.Items.Add(LineFromFile.Substring(1))
                    End Select
                End While

while '....
LineFromFile = '...
if LineFromFile.Trim() <> "" then
'....
end if
end while