我收到“路径中的非法字符”异常，但字符串似乎没有任何非法字符。
我该如何解决这个问题？：
Private Sub Button_Send_Click(sender As Object, e As EventArgs) Handles Button_Send.Click
For Each item As ListViewItem In ListView1.Items
Clipboard.SetText(item.SubItems(0).Text)
' First I copy the text to the clipboard to ensure in Explorer.exe if all is ok and also ifthe file exists... and yes, it exists.
' The example text is this:
' C:\Electro\Nueva carpeta\Aggresivnes - Dance Or Die.mp3
' (without any quotes)
' ...But this throws an "not exists":
If IO.File.Exists(item.SubItems(0).Text) Then MsgBox("exists") Else MsgBox("not exists")
' And here throws an exception of "*Illegal characters in path*" :
Dim File As New IO.FileInfo(item.SubItems(0).Text)
Next
End Su
更新 2
我在自己的代码中犯了一个错误，没有注意到在没有问题时返回 true 并在存在问题时返回 false，所以我决定删除我的旧更新并编辑这个：
我做了一个函数来验证（再次）文件名转换或字符串变量中的某些内容是否有任何无效字符，遵循@Jim Mischel回答指示：
#Region " Validate Windows FileName "
' [ Validate Windows FileName Function ]
'
' By Elektro H@cker
'
' Examples :
' MsgBox(Validate_Windows_FileName("C:\Test.txt")) ' Result: True
' MsgBox(Validate_Windows_FileName("C:\Te|st.txt")) ' Result: False
Private Function Validate_Windows_FileName(ByRef FileName As String)
Dim Directory As String = Nothing
Dim File As String = Nothing
Try
Directory = FileName.Substring(0, FileName.LastIndexOf("\")) & "\"
File = FileName.Split("\").Last
Catch
If Directory Is Nothing Then File = FileName
End Try
If Directory Is Nothing AndAlso File Is Nothing Then Return False
If Not Directory Is Nothing Then
For Each InvalidCharacter As Char In IO.Path.GetInvalidPathChars
If Directory.Contains(InvalidCharacter) Then
' MsgBox(InvalidCharacter)
Return False
End If
Next
End If
If Not File Is Nothing Then
For Each InvalidCharacter As Char In IO.Path.GetInvalidFileNameChars
If File.Contains(InvalidCharacter) Then
' MsgBox(InvalidCharacter)
Return False
End If
Next
End If
Return True ' FileName is valid
End Function
#End Region
好吧...现在我使用该函数再次确保完整路径/文件名和结果为“false”，这意味着字符串包含无效字符，并且该字符类似于“空格”。
MsgBox(Validate_Windows_FileName(item.SubItems(0).Text))
我不知道如何解决这个问题。
如果你想看完整的课程，这里是：
Public Class Main
Dim WinAmpTitle As String = String.Empty
Dim WinAmpFile As String = String.Empty
Dim Sendto_Path As String
Dim WithEvents WinAmp_Timer As New Timer With {.Interval = 25, .Enabled = True}
Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Nothing to do here at the momento...
End Sub
Private Sub WinAmp_Timer_Tick(sender As Object, e As EventArgs) Handles WinAmp_Timer.Tick
WinAmpTitle = WinAmpInfo.Title
WinAmpFile = WinAmpInfo.FileName
If Not TextBox_Title.Text = WinAmpTitle Then TextBox_Title.Text = WinAmpTitle
If Not TextBox_Filename.Text = WinAmpFile Then TextBox_Filename.Text = WinAmpFile
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button_Copy.Click
Dim item = ListView1.Items.Add(WinAmpFile)
item.SubItems.Add(ComboBox_Sendto.Text)
End Sub
Private Sub Button_Send_Click(sender As Object, e As EventArgs) Handles Button_Send.Click
For Each item As ListViewItem In ListView1.Items
Clipboard.SetText(item.SubItems(0).Text)
' First I copy the text to the clipboard to ensure in Explorer.exe if the file exists... and yes, it exists.
' The example text is this:
' C:\Electro\Nueva carpeta\Aggresivnes - Dance Or Die.mp3
' (without any quotes)
' ...But this throws an "not exists":
If IO.File.Exists(item.SubItems(0).Text) Then MsgBox("exists") Else MsgBox("not exists")
MsgBox(Validate_Windows_FileName(item.SubItems(0).Text)) ' Result: False (any invalid character)
' Here, an exception: "Illegal characters in path" :
Dim File As New IO.FileInfo(item.SubItems(0).Text)
' If item.SubItems(1).Text.ToLower = "electro" Then Sendto_Path = "C:\Electro"
' If item.SubItems(1).Text.ToLower = "techno" Then Sendto_Path = "C:\Techno"
' If item.SubItems(1).Text.ToLower = "trance" Then Sendto_Path = "C:\Trance"
'IO.File.Copy(File.FullName, IO.Path.Combine(Sendto_Path, File.Name))
Next
End Sub
#Region " Validate Windows FileName "
' [ Validate Windows FileName Function ]
'
' By Elektro H@cker
'
' Examples :
' MsgBox(Validate_Windows_FileName("C:\Test.txt")) ' Result: True
' MsgBox(Validate_Windows_FileName("C:\Te|st.txt")) ' Result: False
Private Function Validate_Windows_FileName(ByRef FileName As String)
Dim Directory As String = Nothing
Dim File As String = Nothing
Try
Directory = FileName.Substring(0, FileName.LastIndexOf("\")) & "\"
File = FileName.Split("\").Last
Catch
If Directory Is Nothing Then File = FileName
End Try
If Directory Is Nothing AndAlso File Is Nothing Then Return False
If Not Directory Is Nothing Then
For Each InvalidCharacter As Char In IO.Path.GetInvalidPathChars
If Directory.Contains(InvalidCharacter) Then
' MsgBox(InvalidCharacter)
Return False
End If
Next
End If
If Not File Is Nothing Then
For Each InvalidCharacter As Char In IO.Path.GetInvalidFileNameChars
If File.Contains(InvalidCharacter) Then
' MsgBox(InvalidCharacter)
Return False
End If
Next
End If
Return True ' FileName is valid
End Function
#End Region
End Class
...第二部分（我认为不太重要）：
#Region " WinAmp Info "
' [ WinAmp Info Functions ]
'
' // By Elektro H@cker
'
' Examples:
' MsgBox(WinAmpInfo.Title) ' Result: Artist - Title
' MsgBox(WinAmpInfo.FileName) ' Result: C:\Title.ext
Public Class WinAmpInfo
Private Const WinampClassName As String = "Winamp v1.x"
Private Declare Auto Function FindWindow Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
Private Declare Auto Function GetWindowText Lib "user32" (ByVal hwnd As IntPtr, ByVal lpString As String, ByVal cch As Integer) As Integer
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, ByRef lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, ByRef lpBuffer As Byte, ByVal nSize As Long, ByRef lpNumberOfBytesRead As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Shared Function Title() As String
Dim hwnd As IntPtr = FindWindow(WinampClassName, vbNullString)
Dim lpText As String = String.Empty
Dim strTitle As String = String.Empty
Dim intLength As Integer = 0
Dim intName As Integer = 0
Dim intLeft As Integer = 0
Dim intRight As Integer = 0
Dim intDot As Integer = 0
If hwnd.Equals(IntPtr.Zero) Then Return "WinAmp is not running"
lpText = New String(Chr(0), 100)
intLength = GetWindowText(hwnd, lpText, lpText.Length)
If (intLength <= 0) _
OrElse (intLength > lpText.Length) _
Then Return "Unknown"
strTitle = lpText.Substring(0, intLength)
intName = strTitle.IndexOf(" - Winamp")
intLeft = strTitle.IndexOf("[")
intRight = strTitle.IndexOf("]")
If (intName >= 0) _
AndAlso (intLeft >= 0) _
AndAlso (intName < intLeft) _
AndAlso (intRight >= 0) _
AndAlso (intLeft + 1 < intRight) _
Then Return strTitle.Substring(intLeft + 1, intRight - intLeft - 1)
If (strTitle.EndsWith(" - Winamp")) _
AndAlso (strTitle.Length > " - Winamp".Length) _
Then strTitle = strTitle.Substring(0, strTitle.Length - " - Winamp".Length)
intDot = strTitle.IndexOf(".")
If (intDot > 0) _
AndAlso (IsNumeric(strTitle.Substring(0, intDot))) _
Then strTitle = strTitle.Remove(0, intDot + 1)
Return strTitle.Trim
End Function
Public Shared Function FileName() As String
Dim lp As Long, lpWinamp As Long, iIndex As Long, PID As Long, bRet As Long, dwRead As Long
Dim Buffer(260) As Byte
Dim hWndWinamp As IntPtr = FindWindow(WinampClassName, vbNullString)
If hWndWinamp = 0 Then Return Nothing
iIndex = SendMessage(hWndWinamp, &H400, 0, 125)
lp = SendMessage(hWndWinamp, &H400, iIndex, 211)
If lp = 0 Then Return Nothing
Call GetWindowThreadProcessId(hWndWinamp, PID)
lpWinamp = OpenProcess(&H10, 0, PID)
If lpWinamp = 0 Then Return Nothing
bRet = ReadProcessMemory(lpWinamp, lp, Buffer(0), 260, dwRead)
Call CloseHandle(lpWinamp)
Return System.Text.UnicodeEncoding.Default.GetString(Buffer)
End Function
End Class
#End Region
更新 3：
我的新尝试......一切都得到了解释，我得到了一个无效的字符，我不知道为什么......
Private Sub Button_Send_Click(sender As Object, e As EventArgs) Handles Button_Send.Click
For Each item As ListViewItem In ListView1.Items
Dim filenameee As String = item.SubItems(0).Text.Trim ' The trim is...fuck, is just 'cause I don't know what more try to get a valid path...)
Clipboard.SetText(filenameee) ' result: "C:\Test.mp3" (Without any double quote of course)
' ...but this launchs an "not exists" msgbox with the filename "C:\Test.mp3":
If IO.File.Exists(filenameee) Then MsgBox("exists") Else MsgBox("not exists")
MsgBox(filenameee) ' this showns "C:\Test.mp3" /without double quotes)
MsgBox("filename is vlaid?:" & Validate_Windows_FileName(filenameee)) ' Result: False (path is invalid) (REALLY!!!!??? WTF)
' Here, an exception: "Illegal characters in path" :
Dim File As New IO.FileInfo(item.SubItems(0).Text) ' (REALLY!!!!???)
Next
End Sub
更新 4：
相片：
应用程序本身：
（C:\Test.mp3 是文件名变量文本）
Io.file.exists 妥协：
显示 filenameee 变量内容：
检查文件名是否有效：
在文件名中显示假定的非法字符：
（空间？）
例外：
更新 5
我认为真正的问题在这里，在我发布在 UPDATE Nº 2 中的winamp类的“filename()”函数中：
Return System.Text.UnicodeEncoding.Default.GetString(Buffer)
因为它似乎返回了一个有效的字符串，如您在图像中看到的那样，但在“Autos”中似乎是一个大字符串：
所以请如果有人可以帮助我解决这个问题......
谢谢。
更新 6：
这是有效的，我想知道是否存在一种方法或其他方法来改进它以避免使用 For 循环：
Dim i As Int32 = 0
For Each by In System.Text.Encoding.Default.GetString(Buffer)
If by = Nothing Then Exit For 'MsgBox(i)
i += 1
Next
Return System.Text.Encoding.Default.GetString(Buffer, 0, i)