0

我编写了一个 VB.net 应用程序，它可以备份我们的 SharePoint 2007 服务器上的文件夹并将文件的新副本放在它们的位置。这个应用程序在我的 Windows 7 计算机上运行良好，但是当同事在他们的 Windows XP 计算机上运行它时，会出现许多错误。尽我所能解决它们，我就是做不到。

第一个错误是当我调暗 DirectoryInfo 变量时。它连接到 SharePoint 服务器上的 WebDav 文件夹。似乎除非用户首先手动将驱动器映射到 UNC（使用他们的常规登录，没有特殊凭据），否则他们会收到拒绝访问错误。由于我有一个解决方法，这并不重要，但如果有解决方案会有所帮助。

第二个（也是最重要的）错误是，在复制文件期间，Windows XP 计算机出现“延迟写入失败”错误。收到此错误的文件未正确备份。此错误甚至不会阻止程序运行！有没有办法解决这个问题？

Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click

    ' Dim all variables
    Dim i, countfiles As Integer
    Dim CompletedReports As New DirectoryInfo(GlobalVariables.ServerURL)
    Dim dNow As Date = Date.Today
    Dim friday As Date
    Dim friD, friM, friY, archiveFolder, archiveURL As String
    Dim FreshReports As New DirectoryInfo(GlobalVariables.ServerURL + "\Report Archive\Templates\")

    ' Prevent form from being closed while running
    btnDone.Enabled = False
    btnGo.Enabled = False
    btnRunSetup.Enabled = False
    Application.DoEvents()

    ' Calculate the archive date
    friday = dNow.AddDays(-(CInt((dNow.DayOfWeek + 1) Mod 7) + 1))
    friD = friday.Day
    friM = friday.Month
    friY = friday.Year
    If Len(friD) < 2 Then
        friD = "0" + friD
    End If
    If Len(friM) < 2 Then
        friM = "0" + friM
    End If
    archiveFolder = friY + "-" + friM + "-" + friD

    archiveURL = GlobalVariables.ServerURL + "\Report Archive\" + archiveFolder

    ' Count number of files in the current folder
    RecursiveCount(CompletedReports, i)

    ' Do the SharePoint Archive to the "Report Archive" folder
    countfiles = i
    PB_SharePointArchive.Maximum = i
    PB_SharePointArchive.Step = 1
    CopyDirectory(GlobalVariables.ServerURL, archiveURL, PB_SharePointArchive, LB_SharePointArchive_Name, False)
    LB_SharePointArchive_Name.Text = "Done!"

    ' If specified, do the Server Backup
    If GlobalVariables.RemoteBackup = True Then
        i = countfiles
        PB_RemoteBackup.Maximum = i
        PB_RemoteBackup.Step = 1
        CopyDirectory(GlobalVariables.ServerURL, GlobalVariables.RemotePath + archiveFolder, PB_RemoteBackup, LB_RemoteBackup_Name, False)
        LB_RemoteBackup_Name.Text = "Done!"
    End If

    ' If specified, do the Local Backup
    If GlobalVariables.LocalBackup = True Then
        i = countfiles
        PB_LocalBackup.Maximum = i
        PB_LocalBackup.Step = 1
        CopyDirectory(GlobalVariables.ServerURL, GlobalVariables.LocalPath + archiveFolder, PB_LocalBackup, LB_LocalBackup_Name, False)
        LB_LocalBackup_Name.Text = "Done!"
    End If

    ' Refresh the Reports
    i = 0
    RecursiveCount(FreshReports, i)
    PB_SharePointRefresh.Maximum = i
    PB_SharePointRefresh.Step = 1
    CopyDirectory(GlobalVariables.ServerURL + "\Report Archive\Templates\", GlobalVariables.ServerURL, PB_SharePointRefresh, LB_SharePointRefresh_Name, True)
    LB_SharePointRefresh_Name.Text = "Done!"

    ' All tasks done - unlock the close function
    btnDone.Enabled = True

End Sub


Private Sub CopyDirectory(ByVal sourceDir As String, ByVal destDir As String, ByRef progBar As ProgressBar, ByRef statusBox As Label, ByVal overwrite As Boolean)

    Dim prompt, retry

    If Not Directory.Exists(destDir) Then
        Directory.CreateDirectory(destDir)
    ElseIf Directory.Exists(destDir) And overwrite = False Then
        'MsgBox("The directory already exists!" + vbCrLf + "It looks like the backup has already been done for this week." + vbCrLf + "To continue, please delete the previous backup and restart the process", MsgBoxStyle.Critical, "TSO Report Refresh")

        prompt = MsgBox("The directory already exists!" + vbCrLf + "It looks like the backup has already been done for this week." + vbCrLf + "Do you wish to delete the previous backup?", MsgBoxStyle.YesNo, "TSO Report Refresh")
        If prompt = vbYes Then
            DeleteDirectory(destDir)
            Directory.CreateDirectory(destDir)
        Else
            MsgBox("You have chosen not to delete the previous backup. Backup cannot continue." + vbCrLf + "To continue, please delete the previous backup and restart the process", MsgBoxStyle.Critical, "TSO Report Refresh")
        End If
    End If

    For Each strEntry As String In Directory.GetFiles(sourceDir)
        Dim fileNew As FileInfo
        fileNew = New FileInfo(strEntry)

        If fileNew.Exists Then
            retry = 3
            statusBox.Text = "Current File: " + fileNew.Name
            Application.DoEvents()
            While retry > 0
                Try
                    fileNew.CopyTo(destDir & "\" & fileNew.Name, True)
                    retry = 0
                    progBar.PerformStep()
                    Application.DoEvents()
                Catch ex As Exception
                    retry = retry - 1
                    If retry = 0 Then
                        MsgBox("A file has failed to copy after three attempts. The application will now close." + vbCrLf + fileNew.Name, MsgBoxStyle.Critical, "TSO Report Refresh")
                        End
                    End If
                    'Debug.Print("Retrying file " + fileNew.Name + " for the " + (3 - retry) + " time...")
                End Try
            End While
        End If
    Next

    For Each strEntry As String In Directory.GetDirectories(sourceDir)
        If Path.GetFileName(strEntry) = "Report Archive" Or Path.GetFileName(strEntry) = "Forms" Then
            'Do Nothing!
        Else
            Dim strDest As String = Path.Combine(destDir, Path.GetFileName(strEntry))
            CopyDirectory(strEntry, strDest, progBar, statusBox, overwrite)
        End If
    Next

End Sub
4

0 回答 0