UC知道怎样用vb函数实现获取ftp上指定文件的日期
来源：百度知道 编辑：UC知道 时间：2024/06/08 10:39:28
http://god74.blog.163.com/blog/static/1094653200831151426104/
我在该链接上了解到了用vb函数实现ftp的操作，已经写出了多文件下载。但是现在想写个获取ftp上文件的创建时间的程序，调用FtpFindFirstFile老是弄不出来，请大侠帮下忙，改一下程序，谢谢了
窗体中是这样的
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizelow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * 14
cAlternate As String * 14
End Type
Private Sub Cmd_Click()
Inginet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0&)
If Inginet Then
inginetconn = Interne
我在该链接上了解到了用vb函数实现ftp的操作，已经写出了多文件下载。但是现在想写个获取ftp上文件的创建时间的程序，调用FtpFindFirstFile老是弄不出来，请大侠帮下忙，改一下程序，谢谢了
窗体中是这样的
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizelow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * 14
cAlternate As String * 14
End Type
Private Sub Cmd_Click()
Inginet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0&)
If Inginet Then
inginetconn = Interne
给你一个函数，放在模块里。
调用举例：
msgbox "FTP上的文件日期是：" & GetDate("http://zhidao.baidu.com/question/64925434.html")
'===模块代码==
Private Function GetDate(URL As String) As String
Dim i As Integer
Dim XMLObject As Object, ReturnType As String
Set XMLObject = CreateObject("Microsoft.XMLHTTP")
XMLObject.open "GET", URL, False
XMLObject.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
XMLObject.setRequestHeader "Range", "bytes=1-255"
XMLObject.Send
If XMLObject.Status = 200 Or XMLObject.Status = 206 Then
ReturnType = XMLObject.getResponseHeader("date")
ReturnType = Mid(ReturnType, InStr(ReturnType, ",") + 1)
i = InStr(ReturnType, ":")