| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 文件管理器 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=157782) |
|
| -- 作者：hopestarxia -- 发布时间：2020/10/29 3:41:00 -- 文件管理器 窗口中有方件管理器， 窗口打开时设置了代码 Dim fm As WinForm.FileManager = e.Form.Controls("FileManager1") fm.AddFolderCommand.Enabled = False fm.ClearCommand.Enabled = False fm.ManagerCommand.Enabled = False 请问除了禁用是否要直接设置隐藏这几个功能按钮？ 另外，在使用文件管理器（FTP模式）上传文件时，如何如何请文件自动重命名？ 命如规则为：登录用户名+原文件名 |
|
| -- 作者：hopestarxia -- 发布时间：2020/10/29 3:44:00 -- 设置为是否显示已经看到帮助解决，请都是帮助看看自动重命名的问题。谢谢！ |
|
| -- 作者：有点蓝 -- 发布时间：2020/10/29 8:51:00 -- 自行添加上传按钮，写代码上传：http://www.foxtable.com/webhelp/topics/2697.htm |
|
| -- 作者：hopestarxia -- 发布时间：2020/11/2 11:08:00 -- 老师，由于用增加代码，不同用户传的文件都在这相同的一个FTP文件夹中，别的用户也上传时可以看到其中别人传的文件。 我取消了原增加代码，想直接出来一个文件选择框，然后直接完成上传，请如代码如何设置？ Dim dlg As New OpenFileDialog Dim flm As WinForm.FileManager = e.Form.Controls("FileManager1") dlg.Filter= "图片文件|*.img" 想过滤文件类型，img或IMEG If dlg.ShowDialog = DialogResult.OK Then Dim pth As String = ProjectPath & "Attachments\\" If dlg.FileName.ToLower.StartsWith(pth.ToLower) Then \'如果文件来自Attachments目录 flm.AddFile(dlg.FileName.SubString(pth.Length)) Else \'如果不是 FileSys.CopyFile(dlg.FileName, pth & FileSys.GetName(dlg.FileName)) flm.AddFile(FileSys.GetName(dlg.FileName)) End If End If 请问上方应该如何修改为定义FTP连接？ Dim flm As WinForm.FileManager = e.Form.Controls("FileManager1") 上传到FTP的ZZFJ文件夹中，请问老师，代码应该怎么写才能实现？谢谢老师。、 |
|
| -- 作者：有点蓝 -- 发布时间：2020/11/2 11:17:00 -- Dim ftp1 As New FtpClient ftp1.Host="196.128.143.28" ftp1.Account = "foxuser" ftp1.Password = "138238110" If ftp1.Upload("c:\\data\\Desert.jpg","\\ZZFJ\\Desert.jpg") = True Then Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Else Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If Dim flm As WinForm.FileManager = e.Form.Controls("FileManager1") flm.AddFile(\\ZZFJ\\Desert.jpg)
|
|
| -- 作者：hopestarxia -- 发布时间：2020/11/2 14:31:00 -- 老师，测试了您发的代码， 提示：错误代码 flm.AddFile(dlg.FileName) 应为表达式。 另外这个需要上传的图片，我需要在本机选择指定，然后上传到FTP服务器指定目录， 应该有一个Dim dlg As New OpenFileDialog 这个选择返回路径。 但是我不知道 怎么组合，还有报错那里，请都是再看一下帮助指导。 |
|
| -- 作者：有点蓝 -- 发布时间：2020/11/2 14:35:00 -- 贴出代码说明 |
|
| -- 作者：hopestarxia -- 发布时间：2020/11/2 15:10:00 -- 老师： 第一步，代码如下：先选择文件，并在插件 textbox2 中返回了选择的文件跟径+文件名 （文件在本机选择） Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 e.Form.Controls("textbox2").value = dlg.FileName End If 第二步，想将选择的文件上传到FTP服务器的ZZFJ文件夹中。窗口中增加了一个 (上传Button)按钮，选择路径的按钮和上传的按钮都是在控件 FileManager1 旁。想上传完后同时也关联好 FileManager1设置，在这个控件中显示出来。
|
|
| -- 作者：有点蓝 -- 发布时间：2020/11/2 15:26:00 -- If ftp1.Upload(e.Form.Controls("textbox2").value,"\\ZZFJ\\" & FileSys.GetName(e.Form.Controls("textbox2").value)) = True Then 方法1、不用原来的功能，自己使用按钮写代码处理，就可以灵活的控制取消
|
|
| -- 作者：hopestarxia -- 发布时间：2020/11/2 17:50:00 -- 老师，总代码如下： Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28" ftp1.Account = "foxuser" ftp1.Password = "138238110" If ftp1.Upload(e.Form.Controls("textbox2").value,"\\ZZFJ\\" & FileSys.GetName(e.Form.Controls("textbox2").value)) = True Then Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)Else Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If 如果只有以上代码，则完成了附件上传，并且远程FTP文件夹中也有对应的文件了。 但是一起加上以下代码，则出现了 “ 提示：错误代码 flm.AddFile(dlg.FileName) 应为表达式。” Dim flm As WinForm.FileManager = e.Form.Controls("FileManager1") flm.AddFile(\\ZZFJ\\FileSys.GetName(e.Form.Controls("textbox2").value)) 这里怎么让FileManager1插件也关联上？ |