VB - 2つの文字列、変数の連結は

Question

を失敗した私は、文字列型の2つの変数を連結しようとすると、私の結果は、最初の変数です：

Function newXlsx(ByVal sFilepath As String) As Boolean 
    Dim sFileName As String 
    Dim sTest As String 

    sTest = sFilepath.Trim() 
    sFileName = Format(Now, "yyyy-MM-dd") & ".xls*" 
    MsgBox(sTest & "\" & sFileName) 

    If My.Computer.FileSystem.FileExists(sFilepath & "\" & sFileName) Then 
     MsgBox("File found.") 
    Else 
     MsgBox("File not found.") 
    End If 
End Function 

注：sFilepath関数に与えられたが、「Hです：\ A74 "の後ろに複数のスペースがあるので、" 012 "、" 0 "、なぜか私はTrim()という文字列です。だからsTestは "H：\ A74"で、sFileNameは "2016-06-22.xls *"ですが、結果は "H：\ A74 \ 2016-06-22.xls *"ではなく、ちょうど "H：\ A74"です。あなたの代わりにあなたのトリムされた文字列のMy.Computer.FileSystem.FileExists(sFilepath & "\" & sFileName)を使用している

Function newXlsx(ByVal sFilepath As String) As Boolean 
    Dim sFileName = Date.Now.ToString("yyyy-MM-dd") & ".xls" 
    Dim path = System.IO.Path.Combine(sFilepath.Trim(), sFileName)  
    Dim exists = System.IO.File.Exists(path) 
    If exists Then 
     MsgBox("File found.") 
    Else 
     MsgBox("File not found.") 
    End If 
    Return exists 
End Function 

注：このような問題を防ぐために

Answer 1

使用System.IO.Path.Combine。

---

更新：たぶん、あなたのパスに無効な文字が含まれています。

ReadOnly InvalidPathChars As String = New String(Path.GetInvalidPathChars()) 

Public Function RemoveInvalidPathChars(dirOrFileName As String) As String 
    dirOrFileName = dirOrFileName.Trim() 
    For Each c As Char In InvalidPathChars 
     dirOrFileName = dirOrFileName.Replace(c, "") 
    Next 
    Return dirOrFileName 
End Function 

を次にそれを使用するに応じて、あなたの方法を変更します：あなたはそれらを削除する方法を使用することができ

Function newXlsx(ByVal sFilepath As String) As Boolean 
    Dim sFileName = Date.Now.ToString("yyyy-MM-dd") & ".xls" 
    Dim safePath = RemoveInvalidPathChars(sFilepath) 
    Dim path = System.IO.Path.Combine(safePath, sFileName) 
    Dim exists = System.IO.File.Exists(path) 
    If exists Then 
     MsgBox("File found.") 
    Else 
     MsgBox("File not found.") 
    End If 
    Return exists 
End Function 

Answer 2

あなたが使用する方法を学ぶ必要があります

Function newXlsx(ByVal sFilepath As String) As Boolean 
    Dim spath As String 
    spath = IO.Path.Combine(sFilepath.Trim, DateTime.Now.ToString("yyyy-MM-dd")) 
    spath = IO.Path.ChangeExtension(spath, "xls") 

    MsgBox(spath) 

    If My.Computer.FileSystem.FileExists(spath) Then 
     MsgBox("File found.") 
    Else 
     MsgBox("File not found.") 
    End If 
End Function