1

在这段代码中,如果文件夹名称中有空格字符,则不会进行拉链。如何忽略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
4

0 回答 0