| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]如何返回本地目录的文件数 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=157330) |
| -- 作者：huangfanzi -- 发布时间：2020/10/12 14:38:00 -- [求助]如何返回本地目录的文件数 表事件 BeforeDeleteFile Dim fls1 As List(of String) fls1 = FileSys.GetFiles(ProjectPath & "RemoteFiles" & _ftp.RootDir.Replace("/","\\") & "\\" & e.DataRow("合同类型") & "\\" & e.DataRow("合同编号")) \'返回本地目录下的文件数 If fls1.Count = 0 Then FileSys.DeleteDirectory(ProjectPath & "RemoteFiles" & _ftp.RootDir.Replace("/","\\") & "\\" & e.DataRow("合同类型") & "\\" & e.DataRow("合同编号"),2,2) \'删除本机的目录 End If 以上代码是错误的，其实我是参照以下代码写的： Dim fls As List(of String) fls = _ftp.GetFileList(_ftp.RootDir.Replace("/","\\") & "\\" & e.DataRow("合同类型") & "\\" & e.DataRow("合同编号")) \'返回此FTP目录下的文件数 If fls.Count = 0 Then _ftp.DeleteDir(_ftp.RootDir.Replace("/","\\") & "\\" & e.DataRow("合同类型") & "\\" & e.DataRow("合同编号"),True) \'直接删除此目录及下面的所有文件 End If 查了帮助文件，找到了FileSys.GetFiles这个代码，像参照着_ftp.GetFileList来写，但不行，请老师看下 |
| -- 作者：有点蓝 -- 发布时间：2020/10/12 14:45:00 -- 不能在这个事件处理，因为这时候文件还没有删除，当前目录肯定是无法删除的。只能放到按钮里处理，或者到datacolchanged事件处理 |
| -- 作者：huangfanzi -- 发布时间：2020/10/12 14:49:00 -- 是这个道理，是不能放在这里写代码，但现在的问题是这个代码写好后我都无法点确定，是代码写法上有问题，不知错在哪里 fls1 = FileSys.GetFiles(ProjectPath & "RemoteFiles" & _ftp.RootDir.Replace("/","\\") & "\\" & e.DataRow("合同类型") & "\\" & e.DataRow("合同编号")) \'返回本地目录下的文件数 这条代码报错
|
| -- 作者：有点蓝 -- 发布时间：2020/10/12 15:10:00 -- 报什么错？ |