查看完整版本: 如何实现自动删除指定文件夹和文件??

如何实现自动删除指定文件夹和文件??

　　　　俺是初学者,最近由于工作需要,想实现下面的功能:

   
  程序自动监测指定文件夹的大小，如果超出规定的大小，则将这个文件夹下的所有子目录和文件全部删除




　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　谢谢大家了！

如何实现.text内容的自动保存

在VB中启动“运行”按钮后更改text里的内容，当关闭程序时内容自动保存。请教各位前辈这种功能将如何实现？

[quote]原帖由 [i]秋飞花[/i] 于 2006-6-14 16:27 发表 [url=http://www.lihuasoft.net/bbs/redirect.php?goto=findpost&pid=5474&ptid=2358][img]http://www.lihuasoft.net/bbs/images/common/back.gif[/img][/url]
　　　　俺是初学者,最近由于工作需要,想实现下面的功能:

   
  程序自动监测指定文件夹的大小，如果超出规定的大小，则将这个文件夹下的所有子目录和文件全部删除

[/quote]

请看代码
[url=http://www.lihuasoft.net/article/show.php?id=38]http://www.lihuasoft.net/article/show.php?id=38[/url]

[quote]原帖由 [i]kkk[/i] 于 2007-7-20 15:06 发表 [url=http://www.lihuasoft.net/bbs/redirect.php?goto=findpost&pid=14647&ptid=2358][img]http://www.lihuasoft.net/bbs/images/common/back.gif[/img][/url]
在VB中启动“运行”按钮后更改text里的内容，当关闭程序时内容自动保存。请教各位前辈这种功能将如何实现？ [/quote]
自动保存可以保存在文件里，当下次启动程序时再加载文件里的内容。
如下面代码
[color=#000000][color=#0000ff]Private[/color] [color=#0000ff]Sub[/color] Form_Load[color=#0000cc]([/color][color=#0000cc])[/color]
    [color=#0000ff]If[/color] Dir[color=#0000cc]([/color][color=#ff00ff]"c:\1.txt"[/color][color=#0000cc])[/color] [color=#0000cc]<[/color][color=#0000cc]>[/color] [color=#ff00ff]""[/color] [color=#0000ff]Then[/color]
        Text1[color=#0000cc].[/color]Text [color=#0000cc]=[/color] [color=#ff00ff]""[/color]
        [color=#0000ff]Dim[/color] istr As [color=#ff0000]String[/color]
        Open [color=#ff00ff]"c:\1.txt"[/color] [color=#0000ff]For[/color] Input As #1
        [color=#0000ff]Do[/color] [color=#0000ff]Until[/color] EOF[color=#0000cc]([/color]1[color=#0000cc])[/color]
            Line Input #1[color=#0000cc],[/color] istr
            Text1[color=#0000cc].[/color]SelText [color=#0000cc]=[/color] istr [color=#0000cc]&[/color] vbCrLf
        [color=#0000ff]Loop[/color]
        Text1[color=#0000cc].[/color]Text [color=#0000cc]=[/color] [color=#ff0000]Left[/color][color=#0000cc]([/color]Text1[color=#0000cc].[/color]Text[color=#0000cc],[/color] [color=#ff0000]Len[/color][color=#0000cc]([/color]Text1[color=#0000cc].[/color]Text[color=#0000cc])[/color] [color=#0000cc]-[/color] 2[color=#0000cc])[/color]
        Close #1
    [color=#0000ff]End[/color] [color=#0000ff]If[/color]
[color=#0000ff]End[/color] [color=#0000ff]Sub[/color]

[color=#0000ff]Private[/color] [color=#0000ff]Sub[/color] Form_Unload[color=#0000cc]([/color]Cancel As Integer[color=#0000cc])[/color]
    Open [color=#ff00ff]"c:\1.txt"[/color] [color=#0000ff]For[/color] Output As #1
    Print #1[color=#0000cc],[/color] Text1[color=#0000cc].[/color]Text
    Close #1
   
[color=#0000ff]End[/color] [color=#0000ff]Sub[/color]
[/color]

回复 4# 的帖子

非常感谢(我也正在学习VB)，但是我只能保存一个text的内容，要是好多个都需要保存，就会提示“输入超出文件尾”这是什么原因？能否再帮忙写一个两个或以上的程序？多谢！:loveliness:

几个text内容同时保存的程序