共3 条记录, 每页显示 10 条, 页签: [1]

标题：关于打开目录的问题

1楼

blackzhu 发表于：2010/6/7 10:18:00

我用代码建立一个新目录,并将此目录重命名为,如下:

FileSys.CreateDirectory("D:\Release商业版\CaseStudy\管理项目1\Attachments\文档\XJ")
FileSys.RenameDirectory("D:\Release商业版\CaseStudy\管理项目1\Attachments\文档\XJ",Tables("表B").Current("第一列"))

我想再做一个按钮打开此目录,代码如下:

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.InitialDirectory="D:\Release商业版\CaseStudy\管理项目1\Attachments\文档\" & Tables("表B").Current("第一列"))&"
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
MessageBox.Show("你选择的是：" & dlg.FileName,"提示") '提示用户选择的文件
End If

这个不能处理退出代码编辑框,将 & Tables("表B").Current("第一列"))&"去掉后,可以使用,但是只能打开到文档的目录.并不能打开到我要目录下,应该怎么修改?

2楼

狐狸爸爸 发表于：2010/6/7 10:24:00

dlg.InitialDirectory = "D:\Release商业版\CaseStudy\管理项目1\Attachments\文档\" & Tables("表B").Current("第一列")

3楼

blackzhu 发表于：2010/6/7 10:27:00

怎么回事?刚才我也这样改过,就不行,现在又行了,要么我改错了.

共3 条记录, 每页显示 10 条, 页签: [1]