VB做3个功能高手帮帮忙！感激不尽

追问：还有一个问题  大哥  非常感谢你  答完给你加100分    由于临时需要 开始没有写上去  
功能说明：点击Command按钮   将C:\tzh.txt    移动到  D:\  目录下   麻烦帮帮忙！  还是感激不尽

答案：' 添加一个CommandButton，命名为CommandOpen
' 添加一个CommandButton，命名为CommandRefresh
' 添加一个TextBox，命名为Text1
' 添加一个ListBox，命名为List1
' 添加一个CommonDialog，命名为CommonDialog1
 
Option Explicit
 
Dim strFilename As String
 
' 打开按钮
Private Sub CommandOpen_Click()
    CommonDialog1.filename = ""
    CommonDialog1.ShowOpen
    
    strFilename = CommonDialog1.filename
    If strFilename = "" Then
        Exit Sub
    End If
    
    Text1.Text = strFilename
    ListRefresh List1, strFilename
End Sub
 
' 刷新按钮
Private Sub CommandRefresh_Click()
    If strFilename = "" Then
        Exit Sub
    End If
    
    ListRefresh List1, strFilename
End Sub

' 把文件加载到列表框中
Private Function ListRefresh(ByRef list As ListBox, ByVal filename As String)
    ' 检查文件名filename
    ' ...
    ' 假设文件filename 存在
    ' 清空列表框
    list.Clear
    
    ' 打开文件并把每一行文本添加到列表框中
    Open filename For Input As #1
        Do While Not EOF(1)
            Dim strLine As String
            Line Input #1, strLine
            list.AddItem strLine
        Loop
    Close #1
End Function
 
提问人的追问   2011-10-09 13:08 还有一个问题  大哥  非常感谢你  答完给你加100分    由于临时需要 开始没有写上去  
功能说明：点击Command按钮   将C:\tzh.txt    移动到  D:\  目录下   麻烦帮帮忙！  还是感激不尽
 
？？？？？？？这样叫什么程序，上面要求的还勉强，下面的就不符程序的规格。用其他方法解决试试。
你说得这种方法真的很偏激。又不是经常这样，你可以用手动的不是吗？

上一个：如何用VB做一个数据提取的软件
下一个：vb 6.0 里数据库（ACCESS 2000 ）读写问题