2013-09-25 54 views
1

我有以下代码:如何仅获取文件名,将其分配给变量并稍后使用?

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click 
    Dim myStream As Stream 
    Dim saveFileDialog1 As New SaveFileDialog() 
    Dim saveFileName As String = "" 
    saveFileDialog1.Filter = "txt files (*.txt)|*.txt" 
    saveFileDialog1.RestoreDirectory = True 

    If saveFileDialog1.ShowDialog() = DialogResult.OK Then 
     myStream = saveFileDialog1.OpenFile() 
     saveFileDialog1.FileName = saveFileName 
     Using sw As StreamWriter = New StreamWriter(myStream) 
      ' Add some text to the file. 
      sw.WriteLine(DateTime.Now + " - " + saveFileName) ' Date and File title header 
      sw.WriteLine("-------------------") 
      ' Arbitrary objects can also be written to the file. 
      sw.Write("The date is: ") 
      sw.WriteLine(DateTime.Now) 
      sw.Close() 
     End Using 

     If (myStream IsNot Nothing) Then 
      ' Code to write the stream goes here. 
      myStream.Close() 
     End If 
    End If 
End Sub 

变量是saveFileName,但是当我使用saveFileDialog1.FileName,因为它,它是空的或提供该文件的完整路径,我怎么只得到名称? (如test.txt的)

回答

1

使用Path.GetFileName

saveFileName = Path.GetFileName(saveFileDialog1.FileName) 
+0

这个工作,改变Path.GetDirectoryName()来Path.GetFileName()后,由于 – SCGB

+0

哦,当然,重读和用GetFileName的权利一。 – Steve

0
DIM fileName = IO.Path.GetFileName(SavefileDialog.FileName) 
相关问题