在这段代码中,如果文件夹名称中有空格字符,则不会进行拉链。如何忽略str中的空格字符。但它不起作用。
Dim pinfo As New ProcessStartInfo()
pinfo.FileName = "C:\Program Files\WinRAR\WinRAR.exe"
Dim s As String = txtCode.Text
Dim dir As New DirectoryInfo("D:\نهایی\" & s)
For Each dirItem As DirectoryInfo In dir.GetDirectories
Dim str As String = dirItem.ToString()
Dim dis As String = "D:\نهایی\" & s & "\" & str & ".rar"
Dim src As String = " D:\نهایی\" & s & "\" & str
pinfo.Arguments = "a -cpF " & dis & src
Dim p As Process = Process.Start(pinfo)
p.WaitForExit()
Next