主题：显示文件夹的命令是什么

老师请问下，我想复制文件时 检查目录中是否已经有相同的文件，检测到相同文件时，打开文件夹，这个打开文件夹命令如何的，在帮助文件中没有找到，还有一个问题是，复制一个文件到另一个目录或者其它局域网的时候能否显示复制文件的进度，有时候一个大文件复制的时候会花比较长的时间，显示复制文件进度会比较好些

1、检测是否存在相同文件，参考

 

DataTables("窗口1_Table1").GlobalHandler.DataColChanged = True

 

2、打开文件，参考

 

http://www.foxtable.com/webhelp/scr/0353.htm

 

3、进度条，参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=127609&skin=0

 

try
    Dim ms1 As New IO.FileStream("d:\test.jpg", IO.FileMode.Open)
    Dim ms2 As New IO.FileStream("d:\000.jpg", IO.FileMode.Create)
    Dim buffer(1024) As Byte
    Dim count = ms1.read(buffer, 0, buffer.length)    
    Do While (count > 0)
        ms2.Write(buffer, 0, count)
        count = ms1.Read(buffer, 0, buffer.Length)
    Loop
    ms1.Dispose()
    ms2.Dispose()
    msgbox("ok")
catch ex As exception
    msgbox(ex.message)
End try

 

参考

 

Dim s As String = "d:\test.jpg"
If FileSys.FileExists(s) Then
    Dim proc As new Process
    proc.File = FileSys.GetParentPath(s)
    proc.start
End If

try
    Dim ms1 As New IO.FileStream("d:\test.jpg", IO.FileMode.Open)
    Dim ms2 As New IO.FileStream("d:\000.jpg", IO.FileMode.Create)
    Dim buffer(1024) As Byte '每次拷贝1024字节
    Dim count = ms1.read(buffer, 0, buffer.length)
    msgbox(ms1.length)
    Dim sum As Double = 0
    Do While (count > 0)
        sum += count '每拷贝一次，累加值
        output.show(sum)  '在命令窗口显示当前拷贝的字节数
        ms2.Write(buffer, 0, count)
        count = ms1.Read(buffer, 0, buffer.Length)
    Loop
    ms1.Dispose()
    ms2.Dispose()
    msgbox("ok")
catch ex As exception
    msgbox(ex.message)
End try

 

好的，谢谢，试下