编程开发论坛 - Powered by Discuz! Board

标题: 如何实现自动删除指定文件夹和文件?? [打印本页]

作者: 秋飞花 时间: 2006-6-14 16:27 标题: 如何实现自动删除指定文件夹和文件??

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

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

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　谢谢大家了！

作者: kkk 时间: 2007-7-20 15:06 标题: 如何实现.text内容的自动保存

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

作者: Nothing 时间: 2007-7-21 07:24

引用:

原帖由 秋飞花 于 2006-6-14 16:27 发表
　　　　俺是初学者,最近由于工作需要,想实现下面的功能:

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

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

作者: Nothing 时间: 2007-7-21 07:33

引用:

原帖由 kkk 于 2007-7-20 15:06 发表
在VB中启动“运行”按钮后更改text里的内容，当关闭程序时内容自动保存。请教各位前辈这种功能将如何实现？

自动保存可以保存在文件里，当下次启动程序时再加载文件里的内容。
如下面代码
Private Sub Form_Load()
If Dir("c:\1.txt") <> "" Then
      Text1.Text = ""
      Dim istr As String
      Open "c:\1.txt" For Input As #1
      Do Until EOF(1)
         Line Input #1, istr
         Text1.SelText = istr & vbCrLf
      Loop
      Text1.Text = Left(Text1.Text, Len(Text1.Text) - 2)
      Close #1
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Open "c:\1.txt" For Output As #1
Print #1, Text1.Text
Close #1

End Sub

作者: xjp-vb 时间: 2007-9-21 23:47 标题: 回复 4# 的帖子

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

作者: xjp-vb 时间: 2007-9-21 23:49

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

欢迎光临编程开发论坛 (http://bbs.lihuasoft.net/)