Foxtable(狐表)用户栏目专家坐堂 → 显示文件夹的命令是什么


  共有3040人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 


 回到顶部