主题：[求助] 上传照片

If ftp1.DeleteFile("/Homenetwork/" & t("文件路径") & "/" & e.Form.Controls("删除文件").text) = True Then

想要只读取文件夹下这两个后缀的图片、一下命令该怎么修改？

 

*.jpg、*.png

 

Dim fls =  ftp1.GetFileList("openorder/"&  t.current("图片资料路径") & "/*.jpg"   )
For Each fl As String In fls
    fls1 &=  FileSys.GetName(fl) & vbcrlf   
Next
t.current("图片") = fls1

 

使用以下两种写法都读取不到

Dim fls =  ftp1.GetFileList("openorder/"&  t.current("图片资料路径") & "/*.jpg,*.png"   )

Dim fls =  ftp1.GetFileList("openorder/"&  t.current("图片资料路径") & "/*.jpg;*.png"   )

取2次

如果我想一键下载服务器上某个文件夹下的所有文件到本机电脑指定的位置；命令该怎么写？

 

 

比如我想把服务器上路径为【图片资料路径】中的所有文件下载到本地D盘并且文件名称与【图片资料路径】相同的文件夹下。

 

 

Dim t As Table = Tables("集客勘察工单清单表")

 

    Dim fls1 As String = ""
    Dim ftp As New FTPClient
    ftp.Host="192.168.1.1"
    ftp.Account = "aADNe4845fr"
    ftp.password = "AFv9874vjhwe,"

    Dim fls =  ftp.GetFileList("prospecting/"&  t.current("图片资料路径")  )
    For Each fl As String In fls

    fls1 &=  FileSys.GetName(fl) & vbcrlf
    Next
    t.current("图片资料") = fls1

        If ftp.Download("\prospecting\"& t.current("图片资料路径") & "*.*","d:\"& t.current("图片资料路径") & "*.*" ) = True Then
   
        Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
Next

没有一次性下载的用法，只能通过GetFileList获取所有文件名，然后逐个下

要将图片下载到指定的文件夹、如何在 d:\集客勘察工单资料\ 中判断是否有 t.current("图片资料路径") 这个单元格所填写的目录、如果没有的话就先增加好目录后、再将图片下载到该目录下？

 

    If ftp.DirExists( "d:\集客勘察工单资料\"&  t.current("图片资料路径") ) Then '判断目录是否存在
    Else
        ftp.MakeDir( "d:\集客勘察工单资料\"&  t.current("图片资料路径") ) '新建目录
    End If
       ftp.Changedir( "d:\集客勘察工单资料\"&  t.current("图片资料路径"))'设置路径为当前目录
   
   
    If ftp.Download("\prospecting\"& t.current("图片资料路径") & "\" & e.Form.Controls("上传资料").text ,e.Form.Controls("上传资料").text ) = True Then
       
        Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If

如果要判断本地是否有目录，使用这个：http://www.foxtable.com/webhelp/topics/0334.htm

如果想要实现【存放资料位置】文本框的内容发生变化时、该文本框的【初始值】就跟着变为变化后的内容；下次再打开窗口时【存放资料位置】文本框显示的【初始值】就是最后一次修改【存放资料位置】文本框的内容

 

比如：

下图目前【存放资料位置】的【初始值】是没有写任何东西的；如果我在【存放资料位置】中写入：C:\Users\lenovo\Desktop  ；那么该文本框的【初始值】就是：C:\Users\lenovo\Desktop ；下次再打开窗口的时候、该文本框显示的就是：C:\Users\lenovo\Desktop

 

这样就可以实现不同的用户、可以根据自己的喜好自定义要存放下载的资料的路径位置

 

此主题相关图片如下：360截图20200311162044277.jpg

文本框valuechanged事件把内容保存到设置中，窗口afterload事件到设置中获取保存的内容赋值给文本框。

在【存放资料位置】文本框的 ValueChanged 中写有以下命令，修改该文本框内容后显示以下截图
GetConfigValue("存放资料位置", e.Form.Controls("存放资料位置").text )
msgbox(GetConfigValue("存放资料位置", e.Form.Controls("存放资料位置").text ))

 

此主题相关图片如下：360截图20200312101311323.jpg

 

在窗口的 AfterLoad 中写有以下命令、但是打开窗口后【存放资料位置】文本框是空的
e.Form.Controls("存放资料位置").text  = GetConfigValue("存放资料位置","")

 

此主题相关图片如下：360截图20200312101344872.jpg