求助：怎么实现文件管理器增加文件之前就获取选中文件的名称，并解析成拼音。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：怎么实现文件管理器增加文件之前就获取选中文件的名称，并解析成拼音。

共有2172人关注过本帖树形打印复制链接主题：求助：怎么实现文件管理器增加文件之前就获取选中文件的名称，并解析成拼音。

李孝春

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

求助：怎么实现文件管理器增加文件之前就获取选中文件的名称，并解析成拼音。 发帖心情

Post By：2016/10/21 10:23:00 [只看该作者]

求助：怎么实现文件管理器增加文件之前就获取选中文件的名称，并解析成拼音。

Dim dr As DataRow = e.DataRow

If dr.IsNull("description1") Or Dr.IsNull("date") Then

MessageBox.Show("文件描述和日期不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.Cancel = True

Else

e.SubFolder = "Attachments" & "\" & GetPY(dr("description1")) & "\" & dr("date").Year

End If

上述代码已经实现地址的组合自定义，

path结果为：Attachments\ni hao a\2016\2016年技术科2.5假期安排表.xls 想把红色部分也生成拼音有什么办法呢？

或者是增加一个在文件列写入文件之前，就选择的文件的名称的获取，然后再解析为拼音，怎么操作呢？

请各位大大多多指导谢谢！

[此贴子已经被作者于2016/10/21 10:33:58编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/10/21 10:34:00 [只看该作者]

Dim dr As DataRow = e.DataRow

If dr.IsNull("description1") Or Dr.IsNull("date") Then

MessageBox.Show("文件描述和日期不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.Cancel = True

Else

Dim f() As String = e.FileName.Split(".")

e.FileName = GetPY(dr("description1")) & dr("date").Year & GetPY(f(0)) & "." & f(1)

End If

李孝春

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）Dim dr As DataRow = e.DataRowIf dr... 发帖心情

Post By：2016/10/21 10:43:00 [只看该作者]

谢谢，经过比对下面两个写法都可以实现同样的效果！

Dim dr As DataRow = e.DataRow

If dr.IsNull("description1") Or Dr.IsNull("date") Then

MessageBox.Show("文件描述和日期不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.Cancel = True

Else

Dim f() As String = e.FileName.Split(".")

'e.FileName = "Attachments" & "\" & GetPY(dr("description1")) & "\" & dr("date").Year & "\" & GetPY(f(0)) & "." & f(1)

e.SubFolder = "Attachments" & "\" & GetPY(dr("description1")) & "\" & dr("date").Year & "\" & GetPY(f(0)) & "." & f(1)

End If

李孝春

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）Dim dr As DataRow = e.DataRowIf dr... 发帖心情

Post By：2016/10/21 12:31:00 [只看该作者]

加上红色代码定义到项目文件下结果出错，提示

.NET Framework 版本：2.0.50727.5485

Foxtable 版本：2016.7.29.1

错误所在事件：

详细错误信息：

不支持给定路径的格式。

Dim dr As DataRow = e.DataRow

If dr.IsNull("description1") Then

MessageBox.Show("文件描述不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.Cancel = True

Else

Dim f() As String = e.FileName.Split(".")

e.FileName = ProjectPath & "Attachments" & "\" & GetPY(dr("suitDocNumber")) & "\" & GetPY(dr("description1")) & "\" & dr("date").Year & "\" & GetPY(f(0)) & "." & f(1)

End If

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/10/21 14:09:00 [只看该作者]

Dim dr As DataRow = e.DataRow

If dr.IsNull("description1") Then

MessageBox.Show("文件描述不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.Cancel = True

Else

Dim f() As String = e.FileName.Split(".")

e.FileName = ProjectPath & "Attachments" & "\" & GetPY(dr("suitDocNumber")) & "\" & GetPY(dr("description1")) & "\" & dr("date").Year & "\" & GetPY(f(0)) & "." & f(1)

msgbox(e.FileName) '看看真实的路径

End If