以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  显示文件夹的命令是什么  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132673)
--  作者：ts9277
--  发布时间：2019/3/27 10:22:00
--  显示文件夹的命令是什么
老师请问下，我想复制文件时 检查目录中是否已经有相同的文件，检测到相同文件时，打开文件夹，这个打开文件夹命令如何的，在帮助文件中没有找到，还有一个问题是，复制一个文件到另一个目录或者其它局域网的时候能否显示复制文件的进度，有时候一个大文件复制的时候会花比较长的时间，显示复制文件进度会比较好些
--  作者：有点甜
--  发布时间：2019/3/27 10:55:00
--  

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

 
--  作者：ts9277
--  发布时间：2019/3/27 14:20:00
--  
老师下面的代码能注释下吗？看不明白 
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
--  作者：ts9277
--  发布时间：2019/3/27 14:23:00
--  

 

2、打开文件，参考

 

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

 


 老师我指的是打开文件所在的目录，不是打开文件，判断是否有重复文件及打开文件 的代码知道如何写，我的意思是发现有重复文件，会帮你自动打开这个文件夹，进行确认，查找了帮助文件好像没有打开文件夹的相关信息，
--  作者：有点甜
--  发布时间：2019/3/27 16:48:00
--  
以下是引用ts9277在2019/3/27 14:23:00的发言：

老师我指的是打开文件所在的目录，不是打开文件，判断是否有重复文件及打开文件 的代码知道如何写，我的意思是发现有重复文件，会帮你自动打开这个文件夹，进行确认，查找了帮助文件好像没有打开文件夹的相关信息，

 

参考

 

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
--  作者：有点甜
--  发布时间：2019/3/27 17:12:00
--  

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

 
--  作者：ts9277
--  发布时间：2019/3/27 20:40:00
--  
好的，谢谢，试下