这个文件夹中的文件,随时间的累积,有新文件生成  不知道,如何做这样的界面? 谢谢 那位可以给个源代码,或者给个思路也可以

解决方案 »

  1.   

    VB本身带驱动器、文件夹、文件浏览控件。
    你需要做的只是在程序中定时刷新文件控件就行了。
    很简单啊。╭═══════════════════╮
    ║ 免费的源码、工具网站,欢迎大家访问!║
    ║ http://www.j2soft.cn/        ║
    ╰═══════════════════╯
      

  2.   

    DriveListBox DirListBox
    你看你控件里面,把这2个东东拖上去。
      

  3.   

    放控件上去
    然后在timer里
    DirListBox1.refrer
      

  4.   

    大哥,
      我在timer里DirListBox1.refrer,好像报错啊? 
    那位可能把源代码 贴出来啊?
    虽然简单,但在网络上找不到
      

  5.   

    你控件放上去没有阿
    晕死Private Sub Timer1_Timer()
    File1.Refresh
    Dir1.Refresh
    End Sub
      

  6.   

    放了阿,我基本上能看到控件都放上去了。。 下面的代码,不知道是否正确
    Private Sub Dir1_Change()
    File1.Path = Dir1.Path
    End SubPrivate Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
    End SubPrivate Sub File1_Click()
    Timer1.Interval = 1000
    'DirListBox1.Refresh
    filelistbos.Refresh
    End SubPrivate Sub Form_Load()
    Timer1.Interval = 1000   ' 设置计时器时间间隔。
    'DirListBox1.Refresh
    End SubPrivate Sub Timer1_Timer()
    Timer1.Interval = 1000   ' 设置计时器时间间隔。
    End Sub
      

  7.   

    Dir1.Path自己指定这个
    比如你要看c:\test目录
    你就在form_load里面
    dir1.path="c:\test"
      

  8.   

    OK 已经搞定了
     多谢ASPOWER哥哥!!!
    不过发现一个小问题,就是每次新文件生成,在FILEBOX里面确实有,但不是排在第一个,有没有什么方法让新生成的文件放在最前面(即按照时间序列排序) 现有的好像是把最新的文件放到最后,而且每次需要拉动滚动条在能找到,,,, 再次麻烦啦,如果这个比较复杂就算了,毕竟 大功已经告成70%