(vb)针对6r教程html文件的提取器

sizz123

   我平时在主站上看教程的时候,往往喜欢用网页另存来下载网页,于是另存的那个文件夹中就堆满了各种各样的html文件,看起来好乱!大大影响了查阅的速度!

   我于是写了个小程序,将从"主站--制作教程"中下载的教程文件,从一个文件夹中提取出来.(我不确定应不应该把原来的文件删除,所以删除文件的命令我注释掉了).如果文件夹中没有制作教程的话,会出错.(在这里,请教下程序出错后的处理方法).



http://rpg.blue/upload_program/files/6r文件提取_84663274.rar

sizz123

请教几个关于vb的问题

1,如何判断文件夹中是否有文本文件
2,程序重新启动后,如何让变量自动变成上次关闭时候的数值?(重新启动程序后,变量就为0了)

yangff

1,如何判断文件夹中是否有文本文件

1. 
   
2. dim Filepath$,s&
   
3. Filepath = "文件路径"
   
4. S=filelen(FilePath)
   

复制代码

S返回文件大小。。。。。
if s = 0 {/hx}

sizz123

返回文件大小,用getfile就行了,能提供一个完整的方法吗?

yangff

1. 
   
2. dim Filepath$,s&
   
3. dim a as boolean
   
4. a = true
   
5. '参数
   
6. Filepath = '路径'
   
7. '''''''''''''''''''''''''''''''''''''''''
   
8. S=filelen(FilePath)
   
9. if S > 0 then
   
10.    a = false
    
11. end if
    

复制代码

给参数赋值后
如a = false则文件大小为零

sizz123

谢谢了

sizz123

以下引用沉影不器于2008-2-29 15:19:40的发言：

win32_find_data取得属性，再findfirstfile

没有见过的语句,dir命令也可以取得效果.

那么vb中,把1个元素推到数组中的操作是什么?

yangff

什么意思？

美兽

VB不支持直接动态扩展。

重载，再加入新元素好了。