以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  路径盘名的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142548)

--  作者:douglas738888
--  发布时间:2019/10/30 15:24:00
--  路径盘名的问题

请教老师,系统发布后,有的同事把系统文件包放在F:盘,有的放在E:盘,有的放在D:盘

 

但是,项目开发的时候,指定从服务器上下载下来的临时图片和文件的存放路径都是统一存放在F:盘上的文件夹中,系统关闭后自动删除存放临时图片和文件的文件夹

 

这样情况下,因为有的同事分区有F盘,有的没有F盘,系统就无法判断路径删除临时文件夹,这样的问题应该怎样处理????

 

比如:例子1

\'--------删除·存放文件的RemoteFiles·文件夹
If FileSys.DirectoryExists("F:\\项目1\\RemoteFiles") Then  \'如果目录F:\\项目1存在RemoteFiles
    FileSys.DeleteDirectory("F:\\项目1\\RemoteFiles",2,2)   \'则删除之
End If

 

例子2

            \'————————————下载临时文件到本地

            Dim ftp1 As new ftpclient
            ftp1.Host = Hostt
            ftp1.Account = Accountt
            ftp1.Password = PassWord
            ftp1.RootDir = RootDir2 \'"/TBRA"    \'设置根目录
            Dim fl1 As String = Tables("工作模板_Table1").Current("上传工作表模板").Trim()   \'带根目录的文件名称
            Dim st0 As String = rt("上传工作表模板").Trim()   \'提取带根目录的文件名称
            Dim st1 As String = rt("文件名") \'st0.Split("/")(2) \'  提取不带根目录的文件名称
            Dim st2 As String = "F:\\临时下载文件"   \'接收文件的临时文件夹 关闭窗口会删除临时文件夹
            FileSys.CreateDirectory(st2) \'系统临时创建一个文件夹·接收下载的临时文件
           
            Dim path As String = st2 & "\\" & st1
            ftp1.Download(fl1,path,False)  \'Then

 

\'--------系统关闭后删除·已下载存放文件的<临时下载文件>文件夹 
If FileSys.DirectoryExists("F:\\临时下载文件") Then   \'如果目录F:\\临时下载文件 存在
    FileSys.DeleteDirectory("F:\\临时下载文件",2,2)   \'则删除之
End If


--  作者:有点蓝
--  发布时间:2019/10/30 15:30:00
--  
放到项目目录里面不就没有这些问题了么:http://www.foxtable.com/webhelp/topics/1439.htm