文件夹包含文件数、文件夹拷贝以及进度条使用的相关问题-CSDN论坛

文件夹包含文件数、文件夹拷贝以及进度条使用的相关问题

VB > API

收藏回复

[问题点数：80分，结帖人rwj81]

⋅请问能否在水晶报表里每一格都能像正常表格一样用线筐起来啊？？？ ⋅请问，一个form完成两个操作可以吗？ ⋅送分的问题，快来抢啊！（rst.recordcount） 更多帖子 关注私信空间博客 rwj81 等级 本版专家分：50 结帖率 100%: 我的程序中利用了 fso.CopyFolder 的方法对文件夹进行复制，现在我想做一个显示当前拷贝状态的进度条，有什么好办法吗？
能否先得知文件夹中的文件数，再得知当前拷贝的是第几个文件，怎样来实现？

2003-07-21 10:14:39

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅http://xhtcjob.topcities.com/!散分了 ⋅怎样取得当前程序文件(EXE文件)所在目录?急！在线等 ⋅急！用什么API函数可以监控或记录对被删除的文件 更多帖子 关注私信空间博客 cwj88888 等级 本版专家分：46: 去网上找一些有关这方面的控件，我以前找过，不过忘了名字了

2003-07-21 15:08:12

点赞只看TA 引用举报 #1得分 5

⋅请问能否在水晶报表里每一格都能像正常表格一样用线筐起来啊？？？ ⋅请问，一个form完成两个操作可以吗？ ⋅送分的问题，快来抢啊！（rst.recordcount） 更多帖子 关注私信空间博客 rwj81 等级 本版专家分：50: 楼上的给点提示，我现在一点头绪都没有

2003-07-23 10:15:11

点赞只看TA 引用举报 #2得分 0

⋅请问能否在水晶报表里每一格都能像正常表格一样用线筐起来啊？？？ ⋅请问，一个form完成两个操作可以吗？ ⋅送分的问题，快来抢啊！（rst.recordcount） 更多帖子 关注私信空间博客 rwj81 等级 本版专家分：50: 自己顶一下

2003-07-28 10:09:22

点赞只看TA 引用举报 #3得分 0

⋅请问如何有VBA将excel中的某个指定的sheets整体保存为文本文件？ ⋅请教一个输出字符串的问题。新手求教！谢谢！ ⋅请问一个双引号字符串连接的问题，请达人帮忙！谢谢！！ 更多帖子 关注私信空间博客 applehoo 等级 本版专家分：252: 工程部件：Microsoft Windows Common Control X.0
绘制：ProgressBar(进度条)

“能否先得知文件夹中的文件数，再得知当前拷贝的是第几个文件，怎样来实现？”

思路：枚举源文件夹全部文件名，以拷贝文件的方法拷贝至目的文件夹。
下面代码为枚举代码及拷贝代码：[没测试过。]

    Dim sName As String, sFile As String, sExt As String
    Dim sDirList() As String, iDirNum As Integer, I As Integer

    '首先枚举所有文件
    sFile = Dir(sDirName + FileFilter, vbNormal + vbArchive + vbHidden)
    I = 1
    Do While Len(sFile) > 0
        sFile = UCase(Trim(sFile))
        Debug.Print sFile
        I = I + 1
        FileName(I)=FSo.GetFilename(sFile) '此处没进行过测试。
        sFile = Dir
    Loop
'拷贝文件
ProgressBar1.Visible = True
ProgressBar1.Min = 0
ProgressBar1.Max = i

For j=1 to I

ProgressBar1.Value = i

Fso.CopyFile Filename(j),aim_Folder

Next
Msgbox "OK!"

2003-07-28 21:51:37

点赞只看TA 引用举报 #4得分 75

⋅请问能否在水晶报表里每一格都能像正常表格一样用线筐起来啊？？？ ⋅请问，一个form完成两个操作可以吗？ ⋅送分的问题，快来抢啊！（rst.recordcount） 更多帖子 关注私信空间博客 rwj81 等级 本版专家分：50: 以下我已测试过，可以，谢谢applehoo(苹果壶) ，结贴接分！

Private Sub Command1_Click()
Dim fso As New FileSystemObject
Dim sName As String, sFile As String, sExt As String
Dim sDirList() As String, iDirNum As Integer, I As Integer
Dim FileName(52) As String * 20

'首先枚举所有文件
'sFile = Dir(sDirName + FileFilter, vbNormal + vbArchive + vbHidden)
sFile = Dir("d:\job\*.*", vbNormal + vbArchive + vbHidden)
I = 0
Do While Len(sFile) > 0
    sFile = UCase(Trim(sFile))
    Print sFile
    I = I + 1
    FileName(I) = fso.GetFilename(sFile) '此处没进行过测试。
    sFile = Dir
Loop
'拷贝文件
ProgressBar1.Visible = True
ProgressBar1.Min = 0
ProgressBar1.Max = I

For j = 1 To I

  ProgressBar1.Value = j

  'fso.CopyFile FileName(j), aim_Folder
  fso.CopyFile "d:\job\" + FileName(j), "d:\11\"

Next
MsgBox "OK!"

End Sub

2003-07-31 15:58:49

点赞只看TA 引用举报 #5得分 0

收起

收藏回复

rwj81

等级：

关注私信 TA的帖子

中文正则表达式匹配 正则中文匹配: 如何使用正则匹配中文字符?中文正则表达式的匹配规则不像其他正则规则一样容易记住，所以小编写了这篇博客，供参考！ \w匹配 \w匹配的仅仅是中文，数字，字母，对于国人来讲，仅匹配中文时常会用到，见下 匹配中文...

正则表达式匹配标签内的内容: var str = "<img src='dsfas'><div>...怎么取到中间的红色部分? var reg = /<[^>]*>/g,表示以<开头,一直往后找非>的字符串,找到>为止; str.replace(reg,'') 转载...

用正则表达式来匹配图片标签: 最近的网站项目中有个关于网页取图的功能需要我自己开发，在查找了一大堆资料之后，终于得到了一个最好的方案，那就是用正则表达式来匹配图片标签。一般来说一个 HTML 文档有很多标签，比如“<html>”、“&...

正则匹配html标签_匹配两字符串之间内容_匹配image标签: 搜索时可以用notepad++ 搜索测试，匹配部分会变为选中状态 1 匹配image标签 <img([\s\S]*?)> 说明: (1)([\s\S]*?) 代表任意字符 ? 指不贪心匹配不加 ? 则指贪心匹配 (2) java中使用要用双斜杠\\，下面...

使用正则表达式匹配HTML 下各种标签: http://www.oschina.net/question/195686_46313... <title>标题</title&...我自己写的正则表达式是 "... (没有双引号) 只能匹配第一种，，但是不能匹配第二种，，有没有好的正则表达式匹配

正则表达式匹配img标签: let str = '<img style="20px;height: 20px;" src="imgaddress.png" alt="">平安' let reg =/<img.*?src=[\"|\']?(.*?)[\"|\']?\s.*?>/i let value = str.replace(reg, '...console.log(value) // 平安...

如何用正则表达式匹配中文: 没办法，干脆用正则匹配吧。因为之前并没有学过正则表达式，只好恶补了一下。在匹配的过程中遇到了一些问题，特别是在匹配中文的时候，很是蛋疼。下面说一下我的学习成果。使用php在匹配中文的时候不能使用 \w 来...

js正则匹配包含某属性的img图片标签: 比如我要匹配包含class属性的img，获取到class的值，是不是正则就是以<img开头，以/>结尾，中间包含class属性，中间的其他属性忽略。 <img alt="高清" id="av" src="a.jpg"'/> 答案如下： <img....

php用正则匹配出图片img标签中的src路径: php用正则匹配出图片img标签中的src路径 $preg = ‘/<img.?src=["|’]?(.?)["|’]?\s.*?>/i’; preg_match_all($preg, $str, $imgArr);

正则表达式匹配HTML标签或标记: http://c.biancheng.net/cpp/html/1439.html 转载于:https://www.cnblogs.com/myyan/p/4849817.html

正则匹配emoji字符: 寻找emoji的编码范围在这个网站中可以查看所有的emoji unicode:Emoji Unicode table 用js代码找出这个页面所有emoji unicode 的范围： let $list = document.querySelectorAll('.category') for(let key in $list)...

java--正则过滤表情: 2019独角兽企业重金招聘Python工程师标准>>> ...

Java正则全局匹配: 最近遇到一个问题，需要Java进行正则的全局匹配 ...中用正则匹配并且筛选出所有包含表情包的数据：就是想要得到==>> 阿拉蕾表情包，阿鲁表情包，阿狸表情包..... 网上找半天没找到方法，果断自己写一个

正则表达式匹配中文及符号、英文及符号数字空格换行符及常用正则表达式: 2.匹配中文（发现中文匹配要比英文难） 3.常用的正则表达式总结：匹配符号： 2E80～33FFh：中日韩符号区。收容康熙字典部首、中日韩辅助部首、注音符号、日本假名、韩文音符，中日韩的符号、标点、带圈或带括...

python 遇到表情代码出错，用正则表达式去掉表情代码: # 这里“\U0001f60a” 这是表情的代码带这个\ >>> import re >>> cc = re.compile(r'\U0001f60a') #cc 就是需要替换的代码就是把不需要的先标记出来 >>&...

【Java】正则表达式匹配多单词任意顺序组合的字符串: 【问题】做表情抽取的时候发现标签里面的属性在不同浏览器下顺序不尽相同，比如： chrome上这样的一个标签：在firefox上会变成这样：最开始的正则规则是简单粗暴的方式： String rex = " src=\"1.jpg\"\\...

常用的正则表达式去重、匹配img标签、13位时间戳: $content : 当前的文章$order :全部匹配 function parseImgs($content,$order='all') { $pattern='//is'; preg_match_all($pattern,$content,$match); if(isset($match[1])&&!empty($match[1])){

【正则表达式】正则表达式处理图片地址、img标签的方法: 主要针对正则表达式对标签的两种处理方法，一种是对转换成不含有html标记的普通字符串，另一种是把转好的普通字符串转回标签。方法为作者原创，欢迎转载

IOS NSString字符串扩展（链接正则检测、是否包含表情、名字判断、手机号判断、邮箱判断等）: #import <Foundation/Foundation.h> #import <UIKit/UIKit.h> #import &...CoreGraphics/CoreGraphics.h&... 链接正则检测结果 @return 检测结果 */ - (NSArray<NSTex...

emoji正则表达式: 自定义hive的udf，统计表里面某个字段的emoji的个数。 eclipse编写hive udf需要添加两个包，hive-exec-1.1.0.jar和hadoop-core-0.20.2.jar public class EmojiNum extends UDF { //实现evaluate方法 ...

替换笑脸[face] 或者[img] 标签正则表达式: // 还原图片 if(str.contains("[img]")){ String regex = "\\[img\\]([\\s\\S]*?)\\[/img\\]"... Pattern pat = Pattern.compile(regex);... while(matcher.find())...

C#正则表达式_简单梳理_Emoji表情字符处理: A-最近一直有接触到正则表达式，现对其做简单梳理： private const RegexOptions OPTIONS = RegexOptions.IgnoreCase | RegexOptions.Compiled;public const string EMAIL = @"^[\w-]+(\.[\w-]+)*@[\w-]+(\.[\w-]...

在Python中使用正则表达式去掉字符串里的html标签: 有时候会获得一些带html标签的字符串，需要把html标签去掉，获得干净的字符串，这时候可以使用正则表达式。代码如下： import re htmeString = '''<ul id="TopNav"><li><a href="/EditPosts....

实现微博中的‘@用户名’和‘#话题#’的正则表达式: 首先分析下微博中从哪里开始到哪里结束才是一个完整的用户名，按照常规的表现形式，一般是以@开头，以：结尾，中间为用户的名称。匹配表达式就可写为： @[^：:]+ 这是简单的写法，但是有些是在微博之后再@的，...

ActionScript 3.0强大的正则表达式实现替换QQ类表情标签: 当我们想把[嘻嘻]，[哈哈]，[抓狂]等这样的标签转换成相应的图片，对于网络上微博等应用比较多，QQ上面就是使用了[em]324[/em]类似的标签转换表情的，具体实现我就不探究了。首先我们有两个思路，一个是图片传到...

使用正则表达式处理html标签方案分享: 首先呢，阅读本文前建议大家去读下这篇文章点击打开链接，是关于java正则工具类Matcher相关的一些探讨和建议下面这是其中一项关于处理匹配内容替换的范例， appendReplacement() + appendTail()组合 import java...

正则表达式匹配规则: 如果想匹配没有预定义元字符的字符集合，或者表达式和已知定义相反，或者存在多种匹配情况，应该怎么办？字符组查找数字、字母、空白很简单，因为已经有了对应这些字符集合的元字符，但是如果想匹配没有预定义元字符...

php正则动态匹配 - 替代str_replace的数组替换: 之前做的客户端接口中，有把表情图片转换为文字标签的操作，如 -> [大笑]，是用的str_replace的数组替换，完后一天，域名变了，悲催了，因为有新旧数据的同时存在，如果延续之前的做法，肯定还要再搞一个数组,...

python爬虫猫眼电影评论评分，用正则表达式匹配HTML元素值并输出成柱状图: python爬虫猫眼电影评论评分，用正则表达式匹配HTML元素值并输出

正则表达式（替换过滤）: $str=preg_replace("/\s+/", " ", $str); //过滤多余回车 $str=preg_replace("/<[ ]+/si","<",$str); //过滤<__("&...&qu

相关热词 c#线程阻塞的方法 c#获取文件所在路径 c#mysql添加删除 c# 分段处理大文件 c#list 头加元素 c# sso开源框 c#dataset增加列 c# 二进制截断字符串 c#里氏转换原则 c# 主界面