如何上传上次修改的文件**与文件的名称**与FTP - VB - 仍然缺少代码 -

Question

此标题已编辑美国东部时间12月29日上午1:17:45

早上好，

我目前正在开发一个解决方案，让程序将特定目录中最近修改过的文件上传到在线存储网站，但我遇到了一个问题，指出了最近的问题修改了目录中的文件。

我不是程序员，但我最近受到启发，学习VB Script。我已经审查过的所有相关文章都包含其他流程，但我似乎无法将这些代码用于成功使用，所以我希望有人可以帮助我。

编辑*没有错误消息，但我只是不知道如何告诉程序上传最近修改过的文件。

这是我第一次在这个网站上发帖，这里的社区很棒！以下是代码：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("FTP://ftp.DRIVEHQ.COM/information.zip"), System.Net.FtpWebRequest)
    request.Credentials = New System.Net.NetworkCredential("username", "password")
    request.Method = System.Net.WebRequestMethods.Ftp.UploadFile

    Dim file() As Byte = System.IO.File.ReadAllBytes("C:\Users\Public\Documents\LAST MODIFIED FILE")

    Dim Strz As System.IO.Stream = request.GetRequestStream()
    Strz.Write(file, 0, file.Length)
    Strz.Close()
    Strz.Dispose()

我正在寻找的文件的扩展名也是.zip。非常感谢任何贡献！

Answer 1

我最近在一个将修改后的文件发送到Azure的项目中学习了文件导航。

试试这个：

Imports System.IO

Dim Folder As String = "C:\User\Public\Documents\"
Dim Files() As String

'Find all zip files in folder
Files = Directory.GetFiles(Folder, "*.zip", SearchOption.AllDirectories)

Dim fi As FileInfo

Dim FileToUpload As String = ""
Dim LastModifiedTime As DateTime = "1/1/1700"
For Each sFile In Files
    fi = New FileInfo(sFile)
    'Find the last mofified zip file
    If fi.LastWriteTimeUTC > LastModifiedTime Then
        LastModifiedTime = fi.LastWriteTimeUTC
        FileToUpload = sFile
    End If
Next

Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("FTP://ftp.DRIVEHQ.COM/" & fi.Name), System.Net.FtpWebRequest)
request.Credentials = New System.Net.NetworkCredential("username", "password")
request.Method = System.Net.WebRequestMethods.Ftp.UploadFile

Dim file() As Byte = System.IO.File.ReadAllBytes(FileToUpload)

Dim Strz As System.IO.Stream = request.GetRequestStream()
Strz.Write(file, 0, file.Length)
Strz.Close()
Strz.Dispose()