以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]批量导出保存路径  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187927)
--  作者：lgj716330
--  发布时间：2023/8/21 18:54:00
--  [求助]批量导出保存路径
Dim nf1 As Integer = e.Form.Controls("NF").value
Dim yf1 As Integer = e.Form.Controls("YF").value
Dim fl As String
Dim tm As String  = ProjectPath & "Attachments\\确认函.doc" 
For Each r As Row In Tables("客户确认函_Table1")
If yf1 >=10 Then
fl = "C:\\Users\\Public\\Documents\\确认函\\" & r("客户分属") & "\\" & r("系统编号") & r("客户名称") & nf1 & yf1 & ".doc" 
Else
fl = "C:\\Users\\Public\\Documents\\确认函\\" & r("客户分属") & "\\" & r("系统编号") & r("客户名称") & nf1 & "0" & yf1 & ".doc"
End If
Dim wrt As New WordReport(Tables("客户确认函_Table1"),tm,fl)
wrt.BuildOne(r)
wrt.Quit()
Next

批量导出保存，当r("客户分属")中的名称中有/这个斜杠时，保存的文件夹会拆分成两级，如r("客户分属")是ABC/EFG时，路径会变成C:\\Users\\Public\\Documents\\确认函\\ABC\\EFG
这个要怎么解决
--  作者：有点蓝
--  发布时间：2023/8/21 20:11:00
--  
斜杆本来就是系统的路径分隔符。

方法1、去掉单元格里的斜杆，或者替换为其它特殊符号
2、把斜杆改为全角符号
--  作者：lgj716330
--  发布时间：2023/8/21 20:33:00
--  
路径分隔符的斜杠是\\这个啊，我名称中是/这个斜杠
--  作者：有点蓝
--  发布时间：2023/8/21 20:47:00
--  
一样的。可以自己到电脑资源管理器随便找个文件看能不能在名称里输入/就知道了