commondialog的简单问题~~~在线等~~

Weblog 2002-10-24 03:21:49
我想把一个文件复制到另一个目录下(改目录可变),举例来说,将c:/temp.mdb复制到d:/data/下,可以用commondialog吗?如果可以怎么用?
我先用DriveListBox和DirListBox,用他们先选择路径,结果都不能保存,代码如下:

sFileName = App.Path + "\temp.mdb"
aFileName = Dir1.Path + "\xx.mdb"
copyfile sFileName , aFileName
MsgBox "数据导出成功!", vbInformation, "提示"
Exit Sub
hError:
MsgBox "数据导出失败!", vbCritical, "错误"

而且当选择的目录是根目录时,如c:\则aFileName返回的是“c:\\xx.mdb”,如果不是一级目录,则不会出现这个问题~~
请高手指点!!
...全文
43 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
Weblog 2002-10-24
  • 打赏
  • 举报
回复
用的是showsave
sFileName = App.Path + "\测试.mdb"
CommonDialog1.ShowSave
aFileName = CommonDialog1.filename
copyfile sFileName, aFileName
而且
我觉得showsave和showopen只是界面不同而已,filename属性其实不都是一回事吗?
HZCNC 2002-10-24
  • 打赏
  • 举报
回复
ShowOpen 显示“打开”对话框
ShowSave 显示“另存为”对话框
这两个你没用反吧。

'其他还有
ShowColor 显示“颜色”对话框
ShowFont 显示“字体”对话框
ShowPrinter 显示“打印”或“打印选项”对话框
ShowHelp 调用 Windows 帮助引擎
Weblog 2002-10-24
  • 打赏
  • 举报
回复
好像只有当路径与文件名都为英文时,才能通过,其中只要有中文,就不成!为什么啊?我用的vs6.0英文版 os:win2000server
请高手指教~~
Weblog 2002-10-24
  • 打赏
  • 举报
回复
to HZCNC(流浪的草鞋):
呵呵,看反我的sFileName和aFileName了,不过我知道commondialog是什么意思了,当运行到copyfile sFileName,aFileName时出错:
run-time error "999":
copyfile:could not read c:/tmp99/测试.mdb
为什么呢?
kingcom 2002-10-24
  • 打赏
  • 举报
回复
If Right(App.Path, 1) = "\" Then ' 若 App.Path 为根目录
sFileName=app.path+"temp.mdb"
Else
sFileName = App.Path + "\" + "temp.mdb"
End If
HZCNC 2002-10-24
  • 打赏
  • 举报
回复
sFileName = App.Path + "\temp.mdb"
改为
CommonDialog1.ShowOpen
sFileName =CommonDialog1.FileName


CommonDialog 控件 CommonDialog 控件提供一组标准的操作对话框,进行诸如打开和保存文件,设置打印选项,以及选择颜色和字体等操作。通过运行 Windows 帮助引擎控件还能显示帮助。 语法 CommonDialog 说明 CommonDialog 控件在 Visual Basic 和 Microsoft Windows 动态链接库 ommdlg.dll. 的例程之间提供了一个接口。为了用这个控件创建一个对话框,ommdlg.dll. 必须在 Microsoft Windows 的 SYSTEM 目录下。 在应用程序中要使用 CommonDialog 控件,可将其添加到窗体中并设置其属性。控件所显示的对话框由控件的方法确定。在运行时,当相应的方法被调用时,将显示一个对话框或是执行帮助引擎;在设计时,CommonDialog 控件是以图标的形式显示在窗体中。该图标的大小不能改变。 使用指定的方法,CommonDialog 控件能够显示下列对话。 方法 所显示的对话框 ShowOpen 显示“打开”对话框 ShowSave 显示“另存为”对话框 ShowColor 显示“颜色”对话框 ShowFont 显示“字体”对话框 ShowPrinter 显示“打印”或“打印选项”对话框 ShowHelp 调用 Windows 帮助引擎 在对话框接口上单击,CommonDialog 控件将自动提供与上下文有关的帮助: 单击标题栏中的“这是什么?”帮助按钮,然后单击想详细信息的项目。 将鼠标放在想进一步详细信息的项目上,单击右键,然后在所显示的上下文菜单中选择这是什么命令。 操作系统提供在 Windows 95 帮助弹出中显示的文本。也可以通过设置 Flags 属性,在带有 CommonDialog 控件的对话框中显示一个帮助按钮,但是,必须在这个位置提供帮助主题。 注意 无法指定对话框显示在什么地方。 详细信息 要查看各对话的帮助主题,单击“请参阅”。 下例显示“打开”对话框然后在信息框中显示所选的文件名: Private Sub Command1_Click() ' 设置“CancelError”为 True CommonDialog1.CancelError = True On Error GoTo ErrHandler ' 设置标志 CommonDialog1.Flags = cdlOFNHideReadOnly ' 设置过滤器 CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _ "(*.txt)|*.txt|Batch Files (*.bat)|*.bat" ' 指定缺省的过滤器 CommonDialog1.FilterIndex = 2 ' 显示“打开”对话框 CommonDialog1.ShowOpen ' 显示选定文件的名字 MsgBox CommonDialog1.filename Exit Sub ErrHandler: ' 用户按了“取消”按钮 Exit Sub End Sub 参考资料:MSDN var fd = new ActiveXObject("MSComDlg.CommonDialog"); fd.Filter = "Microsoft Office Word(*.doc)|*.doc"; fd.FilterIndex = 2; // 必须设置MaxFileSize. 否则出错 fd.MaxFileSize = 128; // fd.FileName=document.all.FlSubject.value+thisform.WFStartTime.value.split(" ")[0];; // 显示对话框 fd.ShowSave(); 判断"取消"事件,可判断fd.flags为0,或fd.FileName为空。

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧