文件正在使用无法压缩问题 - 中国DOS联盟论坛

文件正在使用无法压缩成功的问题可否用批处理来解决呢?

需要压缩的是一个共享目录,VFP开发的dbf文件,程序也一起,一般是下班时批处理执行,没有工作站连接也会有dbf打开而无法压缩,要怎样可以较顺利执行呢?

dbf是数据库文件吧？压缩之前先把数据库restart一下，这样就可以断开所有的session了，可行吗？

DBF好象无法通过停用什么服务来中止,要通过vfp的语句来关闭打开的DBF??

DBF是不是数据库文件？
什么进程会去访问DBF？

是数据库文件,我这是通过VFP自开发的程序打开它,但有时程序都退出了,但dbf还在打开的,

找个VFP高手看看程序是不是有bug？
程序退出的时候没有断开数据库连接？
程序退出以后任务管理器里面还有没有相应的进程？

rar.exe

开关 -DH - 打开共享的文件

--------------------------------------------------------------------------------

允许处理由其它应用程序打开来写入的文件。

如果应用程序允许度去访问文件时，这个开关有用，但是如果文件的所有访问类型都被禁止，文件打开操作仍然会失败。

此开关是有危险性的，因为它允许添加文件到压缩文件，而文件可能正由其它应用程序进行修改中。使用时请小心。

如果未指定此开关，则依据在压缩配置的“打开共享的文件”选项设置而定。

例子:

WinRAR a -dh dbf *.dbf

数据库文件不建议这样做，除非这个数据库文件你自己拿来玩玩而已的。

有没有批处理语名可以将网络连接断开,执行完备份后批处理再连通网络连接??

Originally posted by qwertl at 2008-8-28 10:52:
有没有批处理语名可以将网络连接断开,执行完备份后批处理再连通网络连接??

rasphone /?
rasdial /?

现是说本地连接

应该是说数据库连接吧？

求批处理语名可以将网卡本地连接网络连接断开,执行完备份后批处理再连通网络连接.网络连接断开了,数据库就断开了,晚上的时候也没人连接的.

找个Unlocker程序挂上.

转帖

@echo off
rem 适用于Win2003
rem 把Win2003的ifmon.dll拷贝到WinXP以后WinXP也可以用
rem 禁用本地连接
netsh interface set interface name="本地连接" admin=DISABLED
rem 启用本地连接
netsh interface set interface name="本地连接" admin=ENABLED

@echo off
rem 用批处理调用devcon.exe来实现
echo 请输入你的选择：（禁用网卡为N,启用为Y）
set/p SELECT= 
if /i %SELECT%==Y set SELECT=ENABLE&GOTO :DO
if /i %SELECT%==N set SELECT=DISABLE
:DO
for /f "tokens=2 delims=&" %%i in ('devcon find pci\* ^| findstr "Fast Ethernet"') do devcon %SELECT% *%%i*>NUL

devcon.exe
http://upload.cn-dos.net/img/496.zip

'XP下可以用VBS来实现

Const ssfCONTROLS = 3  
sConnectionName = "本地连接"  '可改成需要控制的连接名称，如"无线网络连接"等  
sEnableVerb = "启用(&A)"  
sDisableVerb = "停用(&B)"    非xp 系统可能 是禁用
set shellApp = createobject("shell.application")  
set oControlPanel = shellApp.Namespace(ssfCONTROLS)  
set oNetConnections = nothing  
for each folderitem in oControlPanel.items  
 if folderitem.name  = "网络连接" then  
   set oNetConnections = folderitem.getfolder: exit for  
 end if  
next  
if oNetConnections is nothing then  
 msgbox "未找到网络连接文件夹"  
 wscript.quit  
end if  
set oLanConnection = nothing  
for each folderitem in oNetConnections.items  
 if lcase(folderitem.name)  = lcase(sConnectionName) then  
   set oLanConnection = folderitem: exit for  
 end if  
next  
if oLanConnection is nothing then  
 msgbox "未找到 '" & sConnectionName & "' item"  
 wscript.quit  
end if  
bEnabled = true  
set oEnableVerb = nothing  
set oDisableVerb = nothing  
s = "Verbs: " & vbcrlf  
for each verb in oLanConnection.verbs  
 s = s & vbcrlf & verb.name  
 if verb.name = sEnableVerb then   
   set oEnableVerb = verb    
   bEnabled = false  
 end if  
 if verb.name = sDisableVerb then   
   set oDisableVerb = verb    
 end if  
next  
'debugging displays left just in case...  
'  
'msgbox s ': wscript.quit  
'msgbox "Enabled: " & bEnabled ': wscript.quit  
'not sure why, but invokeverb always seemed to work   
'for enable but not disable.    
'  
'saving a reference to the appropriate verb object   
'and calling the DoIt method always seems to work.  
'  
if bEnabled then  
'  oLanConnection.invokeverb sDisableVerb  
 oDisableVerb.DoIt  
else  
'  oLanConnection.invokeverb sEnableVerb  
 oEnableVerb.DoIt  
end if  
'adjust the sleep duration below as needed...  
'  
'if you let the oLanConnection go out of scope  
'and be destroyed too soon, the action of the verb  
'may not take...  
'  
wscript.sleep 400

第1楼　qwertl	发表于 2008-08-19 09:27
中级用户　发帖 243　积分 461
文件正在使用无法压缩问题文件正在使用无法压缩成功的问题可否用批处理来解决呢? 需要压缩的是一个共享目录,VFP开发的dbf文件,程序也一起,一般是下班时批处理执行,没有工作站连接也会有dbf打开而无法压缩,要怎样可以较顺利执行呢?

第2楼　HAT	发表于 2008-08-19 09:30
版主　发帖 5,017　积分 9,023
dbf是数据库文件吧？压缩之前先把数据库restart一下，这样就可以断开所有的session了，可行吗？

第3楼　qwertl	发表于 2008-08-19 09:43
中级用户　发帖 243　积分 461
DBF好象无法通过停用什么服务来中止,要通过vfp的语句来关闭打开的DBF??

第4楼　HAT	发表于 2008-08-19 09:46
版主　发帖 5,017　积分 9,023
DBF是不是数据库文件？什么进程会去访问DBF？

第5楼　qwertl	发表于 2008-08-19 09:55
中级用户　发帖 243　积分 461
是数据库文件,我这是通过VFP自开发的程序打开它,但有时程序都退出了,但dbf还在打开的,

第6楼　HAT	发表于 2008-08-19 10:51
版主　发帖 5,017　积分 9,023
找个VFP高手看看程序是不是有bug？程序退出的时候没有断开数据库连接？程序退出以后任务管理器里面还有没有相应的进程？

第7楼　qwertl	发表于 2008-08-28 10:18
中级用户　发帖 243　积分 461
rar.exe 开关 -DH - 打开共享的文件 -------------------------------------------------------------------------------- 允许处理由其它应用程序打开来写入的文件。如果应用程序允许度去访问文件时，这个开关有用，但是如果文件的所有访问类型都被禁止，文件打开操作仍然会失败。此开关是有危险性的，因为它允许添加文件到压缩文件，而文件可能正由其它应用程序进行修改中。使用时请小心。如果未指定此开关，则依据在压缩配置的“打开共享的文件”选项设置而定。例子: WinRAR a -dh dbf *.dbf

第8楼　HAT	发表于 2008-08-28 10:22
版主　发帖 5,017　积分 9,023
数据库文件不建议这样做，除非这个数据库文件你自己拿来玩玩而已的。

第9楼　qwertl	发表于 2008-08-28 10:52
中级用户　发帖 243　积分 461
有没有批处理语名可以将网络连接断开,执行完备份后批处理再连通网络连接??

第10楼　moniuming	发表于 2008-08-28 11:38
银牌会员　发帖 574　积分 1,335　来自广西
Originally posted by qwertl at 2008-8-28 10:52: 有没有批处理语名可以将网络连接断开,执行完备份后批处理再连通网络连接?? rasphone /? rasdial /?

第11楼　qwertl	发表于 2008-08-28 11:39
中级用户　发帖 243　积分 461
现是说本地连接

第12楼　HAT	发表于 2008-08-28 11:46
版主　发帖 5,017　积分 9,023
应该是说数据库连接吧？

第13楼　qwertl	发表于 2008-08-28 13:30
中级用户　发帖 243　积分 461
求批处理语名可以将网卡本地连接网络连接断开,执行完备份后批处理再连通网络连接.网络连接断开了,数据库就断开了,晚上的时候也没人连接的.

第14楼　knoppix7	发表于 2008-08-28 13:48
银牌会员　发帖 634　积分 1,287　来自 cmd.exe
找个Unlocker程序挂上.

第15楼　HAT	发表于 2008-08-28 13:48
版主　发帖 5,017　积分 9,023
转帖 @echo off rem 适用于Win2003 rem 把Win2003的ifmon.dll拷贝到WinXP以后WinXP也可以用 rem 禁用本地连接 netsh interface set interface name="本地连接" admin=DISABLED rem 启用本地连接 netsh interface set interface name="本地连接" admin=ENABLED @echo off rem 用批处理调用devcon.exe来实现 echo 请输入你的选择：（禁用网卡为N,启用为Y） set/p SELECT= if /i %SELECT%==Y set SELECT=ENABLE&GOTO :DO if /i %SELECT%==N set SELECT=DISABLE :DO for /f "tokens=2 delims=&" %%i in ('devcon find pci\* ^\| findstr "Fast Ethernet"') do devcon %SELECT% %%i>NUL devcon.exe http://upload.cn-dos.net/img/496.zip 'XP下可以用VBS来实现 Const ssfCONTROLS = 3 sConnectionName = "本地连接" '可改成需要控制的连接名称，如"无线网络连接"等 sEnableVerb = "启用(&A)" sDisableVerb = "停用(&B)" 非xp 系统可能是禁用 set shellApp = createobject("shell.application") set oControlPanel = shellApp.Namespace(ssfCONTROLS) set oNetConnections = nothing for each folderitem in oControlPanel.items if folderitem.name = "网络连接" then set oNetConnections = folderitem.getfolder: exit for end if next if oNetConnections is nothing then msgbox "未找到网络连接文件夹" wscript.quit end if set oLanConnection = nothing for each folderitem in oNetConnections.items if lcase(folderitem.name) = lcase(sConnectionName) then set oLanConnection = folderitem: exit for end if next if oLanConnection is nothing then msgbox "未找到 '" & sConnectionName & "' item" wscript.quit end if bEnabled = true set oEnableVerb = nothing set oDisableVerb = nothing s = "Verbs: " & vbcrlf for each verb in oLanConnection.verbs s = s & vbcrlf & verb.name if verb.name = sEnableVerb then set oEnableVerb = verb bEnabled = false end if if verb.name = sDisableVerb then set oDisableVerb = verb end if next 'debugging displays left just in case... ' 'msgbox s ': wscript.quit 'msgbox "Enabled: " & bEnabled ': wscript.quit 'not sure why, but invokeverb always seemed to work 'for enable but not disable. ' 'saving a reference to the appropriate verb object 'and calling the DoIt method always seems to work. ' if bEnabled then ' oLanConnection.invokeverb sDisableVerb oDisableVerb.DoIt else ' oLanConnection.invokeverb sEnableVerb oEnableVerb.DoIt end if 'adjust the sleep duration below as needed... ' 'if you let the oLanConnection go out of scope 'and be destroyed too soon, the action of the verb 'may not take... ' wscript.sleep 400