Попытка создать хороший путь в vb.net

Question

Я пишу приложение, которое создает некоторые текстовые файлы. Я хочу их в некоторых папках, так что я сделал:

Dim fileLoc As String = "c:\users\%username%\downloads\users.txt" 
    If 1 + 1 = 2 Then <--- not very professional but it works! it works.... 
     Dim fs As FileStream = Nothing 
     If (Not File.Exists(fileLoc)) Then 
      fs = File.Create(fileLoc) 
      Using fs 
      End Using 
     End If 
    End If 
    If File.Exists(fileLoc) Then 
     Using sw As StreamWriter = New StreamWriter(fileLoc) 
      sw.Write(pcname.Text) 
     End Using 
    End If 

Но когда я пытаюсь отлаживать, происходит следующее:

DirectoryNotFoundException был необработанным Не удалось найти часть пути (C: \ Users \% username% \ downloads \ users.txt)

Я уверен, что это потому, что «% username%», потому что, когда я заполняю весь путь, он работает. Но когда программа находится на другом ПК, это не сработает!

Answer 1

Dim fileLoc As String = "c:\users\" & Environment.UserName & "\downloads\users.txt" 
If 1 + 1 = 2 Then <--- not very professional but it works! it works.... 
    Dim fs As FileStream = Nothing 
    If (Not File.Exists(fileLoc)) Then 
     fs = File.Create(fileLoc) 
     Using fs 
     End Using 
    End If 
End If 
If File.Exists(fileLoc) Then 
    Using sw As StreamWriter = New StreamWriter(fileLoc) 
     sw.Write(pcname.Text) 
    End Using 
End If 

Это правильный код! спасибо всем за то, что подумали!

Answer 2

попробовать некоторые вещи, как этот

Dim userName as string = WindowsIdentity.GetCurrent().Name; 

Dim fileLoc As String = "c:\users\" & userName & "\downloads\users.txt" 
    If 1 + 1 = 2 Then <--- not very professional but it works! it works.... 
     Dim fs As FileStream = Nothing 
     If (Not File.Exists(fileLoc)) Then 
      fs = File.Create(fileLoc) 
      Using fs 
      End Using 
     End If 
    End If 
    If File.Exists(fileLoc) Then 
     Using sw As StreamWriter = New StreamWriter(fileLoc) 
      sw.Write(pcname.Text) 
     End Using 
    End If 

Answer 3

Я не думаю, что вы можете использовать переменные окружения, как это.

Вместо

Dim fileLoc As String = "c:\users\%username%\downloads\users.txt" 

Попробуйте

Dim fileLoc As String = "c:\users\" & Environment.UserName & "\downloads\users.txt"