VBA操作FTP服务实践心得分享（附示例）

cityguy

正在找这方面的资料解决问题，谢谢！

lihongju

精彩！正是我所需，学习！感谢老师！

lolmuta

若我要取得时间的话，要搞定这单位...

1. Public Type FileTime ' 8 Bytes
   
2.     dwLowDateTime As Long
   
3.     dwHighDateTime As Long
   
4. End Type

复制代码

查了下这个时间单位的定义...
http://www.vbgood.com/api-filetime.html

1. windows提供了一种特殊的机制，可以记录文件的访问及创建时间。在win32环境中，这些信息以64位值的形式保存，量度的是自1601年1月1日以来经历的100ns时间单位数量（64-bit number specifying the elapsed time since January 1, 1601, in 100-nanosecond increments.）

复制代码

google查的

1. 100 ns =
   
2. 1.0 × 10^-7 seconds

复制代码

刚刚得到的其中一个资料是
dwLowDateTime =1531919366
dwHighDateTime =30356590
那这个时间就是
從1600/1/1 开始经过了
303565901531919366 10^-7秒吗？
问题算出来是错的，我又想以2进位的角度来看

30356590*(2^31-1)+1531919366
=65190282135603096(ns)      /10^(7)
=6519028213.5603096(s)       /60
=108650470.22600516(m)     /60
=1810841.1704334193333333333333333(h)    /24
=75451.715434725805555555555555556(天)   
'以VBA去算天数为

1. 
   
2. Const StartD As Date = #1/1/1601#
   
3. Const EndD As Date = #3/4/2014#
   
4. Dim i As Longi = DateDiff("d", StartD, EndD)'i=15907
   

复制代码

二个差了将2倍
75451.715434725805555555555555556(天)*2=150903.43086945161111111111111111感动有接近 15907了
但是还是错啊...

30356590*(2^32)+1531919366
=130380562800000006(ns)      /10^(7)
=13038056280.0000006(s)       /60
=217300938.00000001(m)     /60
=3621682.3000000001666666666666667(h)    /24
=150903.42916666667361111111111111(天)
看来终于成功了......看来他的long在Ç里面应该是正整数，才能达到2^32个
所以推算時間的公式是
終於算出來了…(应该没错吧...)

1. 
   
2.     (dwHighDateTime*(2^32)+dwHighDateTime )*(10^(-7))=得到的值是从1600年1月1日到你要的日期差了几秒

复制代码

问题是时间有必要搞到那么精准吗？？？？？？？？？？？？？？？？

lolmuta

捞的Linux的FTP
这个只能捞到
ftLastWriteTime
而且捞出来的资料是按照
型态，时间排序

好奇心

xmyjk 发表于 2011-3-29 10:22
8、最后，讲讲如何用让VBA，通过shell的方式，调用CMD的FTP命令来操作FTP呢？

        直接用示例讲解（ ...

请问楼主：复制上传文件的代码如何？FTP中的目录：A\B\CV\m\文件

第七时隙

WINLAND老师的Wininet的VBA FTP操作的类模块.rar    里面如何修改FTP的端口，因为我公司内部局域网的FTP服务器端口是21111不是默认的21.我看了半天貌似没找到修改端口的地方，在端口为21的FTP上倒是测试成功了。楼主知道怎么修改端口吗？点拨一下。

lolmuta

第七时隙 发表于 2014-3-9 15:00
WINLAND老师的Wininet的VBA FTP操作的类模块.rar    里面如何修改FTP的端口，因为我公司内部局域网的FTP服务 ...

此文字在5樓

nServerPort 指示与哪一个端口连接。一般为0，它指示的是默认的端口21。

a263377135

楼主你好，我看了下你的附件，FTP文件目录索引和查找示例，能帮忙修改下，我主要想下载多个子目录（同在一个相同的主目录）下载相同类型的文件，文件名有共同点，特别不知道怎么加个筛选条件：下载指定时间的文件

7176386

Ftp登陆提示连接超时这个有没有办法可以解决？

z2xz2x

感谢楼主啊，最近正想学习FTP的vb用法，可以参考下呢！