主题：FTP上传创建文件夹

老师，我ftp上传以项目名称自动创建文件夹并以项目名称命名时，当项目有特殊字符，创建文件夹时，把特殊字符后的文字自动删除怎么处理：

比如我项目名称为：仁寿县粮食园区产业大道工程（第二段）/ 标段

创建的文件名需要自动变为：仁寿县粮食园区产业大道工程（第二段）或是：仁寿县粮食园区产业大道工程（第二段）标段   都行。

原来代码如下：

Select  Case e.Col.Name
    Case  "中标通知书"
        Dim dlg As New openFileDialog '定义一个新的SaveFileDialog
        dlg.MultiSelect = True
        If dlg.showDialog = DialogResult.Ok Then '如果用户单击了确定按钮
            Dim ftp1 As new  ftpclient
            ftp1.host="120
            ftp1.Account = "
            ftp1.password = "
            Dim r As Row = Tables("业绩管理").Current
            Dim ls = r.DataRow.Lines("中标通知书")
            For Each f As String In dlg.FileNames
                Dim file = "/公司业绩/" & r("项目名称") & "/" & filesys.GetName(f)
                If ftp1.DirExists("/公司业绩/" & r("项目名称")) = False Then
                    ftp1.MakeDir("/公司业绩/" & r("项目名称"))
                End If
                Dim Result As DialogResult
                If ftp1.FileExists(file) Then
                    Result = MessageBox.Show("文件已经存在,是否覆盖?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                End If
                If result = Nothing OrElse result = DialogResult.Yes Then
                    If  ftp1.Upload(f,file,True) = True Then
                        If ls.contains(file) = False Then
                            ls.add(file)
                        End If
                    Else
                        MessageBox.Show( f & "上传失败" ,"提示" ,MessageBoxButtons.OK,MessageBoxIcon.Question)
                    End If
                End If
            Next
            r.DataRow.lines("中标通知书") = ls
            ftp1.Close
            r.save
        End If
End S  elect

 

 

此主题相关图片如下：qq截图20191101153114.png

 

前面两种有可能出现，后面的额不会出现。