文章正文

急救！很奇怪

类型：转载责任编辑：asp 日期：2007/03/01

我的程序里有一个数据备份的程序，我是在windows2000下完成的，但程序到了windows 98下就不好使，说是不具备权限？为什么？

源文件如下：sub backup()
dim filegcn as new filesystemobject
dim textwrt as textstream
dim strpath, strtarget, strextfolder as string
strtarget = app.path & "\database\backup\backup" & left(cstr(date), 4) & mid(cstr(date), 6, 2) & right(cstr(date), 2)
strpath = app.path & "\database\sperson.mdb"
strextfolder = app.path & "\database\backup"
if filegcn.folderexists(strextfolder) then
filegcn.deletefolder strextfolder
end if
frmbackup.mousepointer = vbhourglass
filegcn.createfolder strextfolder
filegcn.createfolder strtarget
filegcn.copyfile strpath, strtarget & "\"
filegcn.createtextfile app.path & "\database\backup\backup.txt"
set textwrt = filegcn.opentextfile(strextfolder & "\backup.txt", forwriting)
textwrt.writeline "******** the path of backup file *********"
textwrt.writeline strtarget
textwrt.close
set filegcn = nothing
if timer1.enabled = false then
frmbackup.mousepointer = vbarrow
end if
msgbox "数据备份成功！", vbokonly + vbinformation, "人事管理系统"
unload frmbackup
end sub

推荐阅读

任天堂认为玩家不喜欢网络游戏 [详细内容]

兵临城下!苹果IPOD全线产品惨遭围殴 [详细内容]

张炜:手机业群雄逐鹿还是三国鼎立 [详细内容]

SQUARE-ENIX公布三款手机游戏 [详细内容]

关于3100的广播信息的接收 [详细内容]

超女巡演北京再掀高潮李宇春终于穿裙子引尖叫 [详细内容]

借上市之威推大型网游腾讯发力网络游戏 [详细内容]

网友回答:

站内导航：

IT热门资讯：