Office中国论坛/Access中国论坛

标题: 为什么不备份？ [打印本页]

作者: yj11252551 时间: 2004-3-6 18:36
标题: 为什么不备份？
各位高手行行好！请帮我看一下这个库里的“备份”窗体，执行以后提示“备份成功”但是实际上什么也没有备份！为什么？[attach]3790[/attach]

作者: huanghai 时间: 2004-3-6 19:24
标题: 好了
[attach]3793[/attach]

作者: rogertian 时间: 2004-3-6 19:49
黄版主..没看到有备份出来的文件啊..

作者: yj11252551 时间: 2004-3-6 19:50
好了，谢谢了。请到和田来，带走和田美玉、大吃和田烤全羊！
但还有个小小的问题：选择目录可以备份，新建目录备份出错。提示：无效的过程调用或参数！就是红色的那一行！
Public Function getShortPath(ByVal strFullPath As String) As String '得到文件的短文件名

Dim strShortPath As String

strShortPath = Space(256)
GetShortPathName32 strFullPath, strShortPath, 256
strShortPath = Left(strShortPath, InStr(strShortPath, Chr(0)) - 1) getShortPath = strShortPath

End Function

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)