此代码，以身份证号码命名，现文件名全部替换成"人员编号"，代码完美
For Each r As Row In Tables("提取文件名").Rows
Dim 身份证号码 As String = r("身份证号码")
Dim 编号 As String = r("人员编号")
msgbox(身份证号码 & "," & 编号)
For Each File As String In FileSys.GetFiles(ProjectPath & "\Attachments\照片文件夹2406\")
Dim name1 As String = FileSys.GetName(file).split(".")(0) '只生成文件名（不含路径，也不带文件后缀）
Dim name2 As String = "." & FileSys.GetName(file).split(".")(1) '只生成文件后缀
msgbox("文件名：" & name1 & ", 后缀：" & name2)
If name1.contains(身份证号码) Then
Dim file1 As String = name1.replace(身份证号码, 编号) & name2 '加上后缀 ，开始替换
msgbox("开始替换：" & file1)
FileSys.RenameFile(file, file1) '文件重命名
msgbox("OK")
End If
Next
Next
'示例四
'如果表中有多个图片型或文件型列，那么应该在BeforeAttachFile判断列名，例如要求照片列只能插入JPG文件，而且存放在名为"照片"的子目录中，简历列只能插入Word文件，而且存放在名为"简历"的子目录中：
Dim ext As String
ext = e.FileName.SubString(e.FileName.LastIndexof(".") + 1) '获得文件后缀名
Select Case e.DataCol.Name
Case "照片"
If ext = "jpg" Then
e.SubFolder = ext
Else
MessageBox.Show("此列只能插入jpg文件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
e.Cancel = True
End If
Case "简历"
If ext = "doc" Then
e.SubFolder = ext
Else
MessageBox.Show("此列只能插入Word文件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
e.Cancel = True
End If
End Select
老师, 这是帮助中的示例四代码, 上述代码"照片"和"简历"文件夹, 自动放在Attachments文件夹中, 我想把"照片"和"简历"文件夹放在指定文件夹之中, 比如：ProjectPath & "\Attachments\我的文档2406\"
请问老师, 这里怎么指定存储路径
加好友 
发短信
Post By：2024/6/8 13:56:00 [只看该作者]
