Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Msg As String = ""
        Dim AppPath As String = My.Application.Info.DirectoryPath
        Msg = "AppPath=" & AppPath & vbCrLf & vbCrLf
        Dim NewPath1 As String = IO.Path.Combine(AppPath, "\text\test.txt")
        Msg &= "IO.Path.Combine(AppPath, ""\text\test.txt"")" & vbCrLf & "  得到的是" & vbCrLf & NewPath1 & vbCrLf
        Dim NewPath2 As String = IO.Path.Combine(AppPath, "/text\test.txt")
        Msg &= "IO.Path.Combine(AppPath, ""/text\test.txt"")" & vbCrLf & "  得到的是" & vbCrLf & NewPath2 & vbCrLf
        Dim NewPath3 As String = IO.Path.Combine(AppPath, "text\test.txt")
        Msg &= "IO.Path.Combine(AppPath, ""text\test.txt"")" & vbCrLf & "  得到的是" & vbCrLf & NewPath3 & vbCrLf & vbCrLf
        Msg &= "也就是说" & vbCrLf & "  System.IO.Path.Combine(String, String) As String" & vbCrLf & "  的第二个参数不能以""/""或""\""开头"
        MsgBox(Msg)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Msg As String = ""
        Dim AppPath As String = My.Application.Info.DirectoryPath & "\"
        Msg = "AppPath=" & AppPath & vbCrLf & vbCrLf
        Dim NewPath1 As String = IO.Path.Combine(AppPath, "\text\test.txt")
        Msg &= "IO.Path.Combine(AppPath, ""\text\test.txt"")" & vbCrLf & "  得到的是" & vbCrLf & NewPath1 & vbCrLf
        Dim NewPath2 As String = IO.Path.Combine(AppPath, "/text\test.txt")
        Msg &= "IO.Path.Combine(AppPath, ""/text\test.txt"")" & vbCrLf & "  得到的是" & vbCrLf & NewPath2 & vbCrLf
        Dim NewPath3 As String = IO.Path.Combine(AppPath, "text\test.txt")
        Msg &= "IO.Path.Combine(AppPath, ""text\test.txt"")" & vbCrLf & "  得到的是" & vbCrLf & NewPath3 & vbCrLf & vbCrLf
        Msg &= "也就是说" & vbCrLf & "  System.IO.Path.Combine(String, String) As String" & vbCrLf & "  的第一个参数可以""/""或""\""结尾头"
        MsgBox(Msg)
    End Sub

分享到： QQ空间 新浪微博 腾讯微博 微信 更多

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：   注册？ 验证：  防止恶意留言请输入问题答案：2*8=?
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字	表  情