主题：关于文件操作

If FileSys.GetFiles("C:\Documents and Settings\Administrator\桌面\新建文件夹").Contains("C:\Documents and Settings\Administrator\桌面\新建文件夹\Northwind.mdb") Then   
    Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
    dlg.Filter= "查找文件|Northwind.mdb" '设置筛选器
    dlg.InitialDirectory = "C:\Documents and Settings\Administrator\桌面\新建文件夹"
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        MessageBox.Show("你选择的是:" & dlg.FileName,"提示") '提示用户选择的文件
    End If
End If

Dim folder As String = "C:\Documents and Settings\Administrator\桌面\新建文件夹"
Dim dlg As New OpenFileDialog

dlg.Filter= "查找文件|*North*.mdb"

dlg.InitialDirectory = folder
If dlg.ShowDialog = DialogResult.Ok Then 

    FileSys.CopyFile(dlg.FileName,"D:\Southwind.mdb")
End If

不如上个小例子，照着例子问，照着例子做，早就OK了。