| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1248 人关注过本帖
标题:求教 vfp 能批量给文件加密处理不?
只看楼主 加入收藏
xuminxz
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:41
帖 子:766
专家分:2517
注 册:2011-5-8
收藏
得分:20 
程序代码:
On Error xlsrs=Createobject('Excel.application') 
xlsrs=Getobject(,'Excel.application') 
*On Error
xlsrs.Visible=.T.
_fnm=ADDBS(JUSTPATH(SYS(16,1)))
SET DEFAULT TO (_fnm)
_fnm=ADDBS(JUSTPATH(SYS(16,1)))+'表.xls'
xlsrs.Workbooks.Open(_fnm)
_rows=xlsrs.sheets(1).UsedRange.Rows.Count&&有数据的总行数
CLOSE TABLES all
CREATE table jmwj (sfl c(40),tfl c(40) ,pswd c(32))
FOR i=2 TO _rows
    APPEND BLANK
    REPLACE sfl WITH Alltrim(xlsrs.cells(i,1).Value),tfl WITH Alltrim(xlsrs.cells(i,2).Value),pswd WITH Alltrim(xlsrs.cells(i,3).Value)
ENDFOR
xlsrs.Workbooks.Close()
xlsrs.quit
Release xlsrs
IF FILE("C:\Program Files\WinRAR\Rar.exe")
    cmdstr='"C:\Program Files\WinRAR\Rar.exe" a -hp'
ELSE
    IF FILE("C:\ProgramFiles(x86)\WinRAR\Rar.exe")
    cmdstr='"C:\ProgramFiles(x86)\WinRAR\Rar.exe " a -hp'
    ELSE
        =MESSAGEBOX("未找到RAR程序")
    ENDIF
ENDIF
**-hp 改为 -p 可不用密码看到压缩包中的文件名
SCAN

    dbnm=JUSTSTEM(sfl)+'.dbf'
    tnm=' '+JUSTSTEM(tfl)+'.rar '
    pwd=ALLTRIM(pswd)
    cmd=cmdstr+pwd+tnm+dbnm
    RUN /n7 &cmd.
ENDSCAN

dBase有人接盘了。
2023-04-18 15:49
lnsyzhuhua
Rank: 1
等 级:新手上路
帖 子:61
专家分:0
注 册:2017-8-16
收藏
得分:0 
感谢xuminxz
问题解决了!
2023-04-20 08:47
快速回复:求教 vfp 能批量给文件加密处理不?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017576 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved