如何延迟 vb.net 程序直到文件操作完成？

Question

我有这个：

    Dim myTemp As String
    myTemp = System.DateTime.Now().ToString("MMMddyyyy_HHmmss") & ".pdf"

    System.IO.File.Copy(myFile, "c:\" & myTemp)
    Application.DoEvents()
    OpenFile(myTemp)

问题是，当我调用 OpenFile（这只是对打开文件的子程序的调用）时，它找不到该文件。 这是因为它调用它的速度太快，以至于程序没有时间在打开之前实际创建文件。

我以为 DoEvents() 会纠正这个问题，但事实并非如此。 我需要等到文件创建后才能打开文件。 我怎样才能做到这一点？

Answer 1

我对 VB.NET 不太了解，但是 Copy 不是阻塞调用吗？ 您确定您不仅仅是尝试从错误的位置打开文件（或者未转义的反斜杠使路径无效）？

那这个呢？ 我已将驱动器号添加到 OpenFile，并在两个地方都转义了反斜杠。

Dim myTemp As String
myTemp = System.DateTime.Now().ToString("MMMddyyyy_HHmmss") & ".pdf"

System.IO.File.Copy(myFile, "c:\\" & myTemp)
OpenFile("c:\\" & myTemp)

Answer 2

理想情况下，您应该在单独的线程上执行复制，该线程在完成时通知主 GUI 线程，以便它可以通过 Invoke 调用执行打开操作。

Answer 3

使用 FileSystemWatcher 在文件创建时提醒您。 没有循环。

https://web .archive.org/web/1/http://articles.techrepublic%2ecom%2ecom/5100-10878_11-6165137.html

Answer 4

这很丑，但对我有用

 Function WaitForFile(fullPath, wdelay)
    Dim vd_start As Date
    vd_start = Now()
    Dim vd_end As Date
    Dim wsec, wmin, whour, wt5string As Integer
    Dim wtstring As String
    Dim count As Integer
    Dim wscale As Integer
    Dim vd_1 As Date
    Dim Vo_fileinfo As FileInfo

    Dim fs As FileStream

    wsec = Format(wdelay Mod 60, "00")
    wmin = Format(Int(wdelay / 60), "00")
    whour = Format(Int(wdelay / (60 * 60)), "00")
    wtstring = CStr(whour) + ":" + CStr(wmin) + ":" + CStr(wsec)
    Dim duration = New System.TimeSpan(0, whour, wmin, wsec)
    vd_end = vd_start.Add(duration)

    On Error GoTo error1
    Dim vsize1, vsize2 As Long
    While vd_start < vd_end
        fs = New FileStream(fullPath, FileMode.Open)
        fs.ReadByte()
        fs.Seek(0, SeekOrigin.Begin)
        fs.Close()
        Vo_fileinfo = New FileInfo(fullPath)
        vsize1 = Vo_fileinfo.Length
        Threading.Thread.Sleep(500)
        Vo_fileinfo = New FileInfo(fullPath)
        vsize2 = Vo_fileinfo.Length
        If vsize1 <> vsize2 Then GoTo error1
        GoTo finalgoto
error1:
        Err.Clear()
        vd_start = Now()
    End While

    WaitForFile = False
    GoTo Endgoto
finalgoto: WaitForFile = True
Endgoto:
End Function 

Answer 5

这有点 hacky，但应该可以。

Do Until (System.IO.File.Exists("C:\" & myTemp))
    Threading.Thread.Sleep(1)
Loop

Answer 6

这并不是 Doevents 的真正用途。 最常用于让UI消息队列清空（让UI有一些CPU时间来刷新）。 它比我描述的要复杂一些，但这不是你问题的重点，所以我将继续。

尝试这样做来制作代码块的关键部分：

SyncLock Me
  System.IO.File.Copy(myFile, "c:\" & myTemp)
  Application.DoEvents()
End SyncLock

OpenFile(myTemp)

Answer 7

除了Tom的回答之外，放置一个Application.DoEvents()而不是让线程休眠不是更好吗？

Answer 8

首先，您不应该在任何地方调用 DoEvents。 在大多数情况下，当使用它时，它是一种规避真正应该是异步操作的方法。

也就是说，Copy 方法是一个同步操作。 在对 Copy 的调用完成之前，不会发生对 OpenFile 的调用。

也就是说，当调用 OpenFile 时，如果该文件不存在，那是因为您将其复制到了错误的位置，或者因为某些其他进程正在处理相关文件。

Answer 9

我认为同步时钟不适合这种情况的

解释，MSDN可以帮助我

SyncLock 语句确保多个线程不会同时执行相同的语句。 当线程到达 SyncLock 块时，它会计算表达式并保持这种排他性，直到它获得表达式返回的对象的锁。 这可以防止表达式在多个线程运行期间更改值，这可能会导致代码出现意外结果。

在我看来，复制是阻塞方法，因此线程等待复制完成

在另一个地方不会有问题吗？

Answer 10

dim SourceFile as string
dim DestinationFile as string

SourceFile = "c:/archivo.txt"
DestinationFile = "c:/destino/archivo.txt"

If System.IO.File.Exists(SourceFile) = True Then

    System.IO.File.Copy(SourceFile, DestinationFile, True)
    'or
    'My.Computer.FileSystem.CopyFile(SourceFile, DestinationFile, FileIO.UIOption.AllDialogs, FileIO.UICancelOption.DoNothing)

    SourceFile = ""
    DestinationFile = ""

else

    MessageBox.Show("the file don't copy!") 

end if 

Answer 11

System.Threading.Thread.Sleep(1000);