主题：怎样自动建一个文件夹名来管理资料？

参考：

http://www.foxtable.com/help/topics/1410.htm

设置在这个表的DAtaColChanged事件中

If e.DataCol.Name = "单号" Then
    If e.NewValue > "" Then
        Dim ftp1 As new ftpclient
        ftp1.host="128.169.143.96"
        ftp1.Account = "foxuser"
        ftp1.password = "136137138"
        If ftp1.DirectoryExists("/" & e.NewValue & "'") = False Then
            ftp1.MakeDir("/" & e.NewValue & "'")
        End If
   End If
End If

你要按顺序看帮助才行，最后从《使用指南》的第一节开始看，使用熟悉了，再按顺序看《开发指南》。

开发软件和使用软件不同，开发需要系统地学习，因为各个知识点不是独立的，是相互关联的。

例如打开"/data"目录:

Dim ftp1 As new ftpclient
ftp1.host="128.169.143.96"
ftp1.Account = "foxuser"
ftp1.password = "136137138"
ftp1.OpenManager("/data") 

你可以将这个按钮的代码设置为：

Dim ftp1 As new ftpclient
Dim r As Row = Tables("表名").Current
ftp1.host="128.169.143.96"
ftp1.Account = "oxuser"
ftp1.password = "136137138"
If ftp1.DirectoryExists("/" & r("单号"))= False Then
   ftp1.OpenManager("/" & r("单号"))
End If

还是先按顺序看帮助吧，你这样花费的时间会是别人的很多倍，最后可能还不一定掌握得了。

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
ftp1.Changedir("\photo") '进入目录
ftp1.OpenManager() '打开管理器

参考：

http://www.foxtable.com/help/topics/1410.htm