내 프로그램이 여전히 열려 있기 때문에 파일을 삭제할 수 없습니다.

Question

나는 프로그램에 grab PDF 파일을 가지고 병합 한 다음 원래의 병합되지 않은 파일을 휴지통으로 삭제합니다.

나는 Syncfusion PDF 도구를 이용하기 위해 프로그램을 수정했으며, 파일을 삭제하려고 할 때까지 대부분 원활하게 진행되었습니다.

경고 팝업은 내 프로그램이 파일을 열었 음을 알려주지 만 프로그램에서 어디서 열려 있는지 또는 어떻게 찾을 수 있는지 잘 모르겠습니다.

여기에 함수의 :

Function MergePDFSync(ByVal Path As String, ByVal SavePath As String, ByVal outFileName As String, ByVal DeleteOriginal As Boolean) As String 
    On Error GoTo sError 

    Dim CreateDate As Date = Now 
    Dim finalFileName As String = "" 
    Dim dInfo As New DirectoryInfo(Path) 

    If dInfo.GetFiles("*.pdf").Length > 0 Then 
     Dim doc As New Syncfusion.Pdf.PdfDocument 
     Dim ldoc As Syncfusion.Pdf.Parsing.PdfLoadedDocument 
     Dim file As String 

     For Each f As FileInfo In dInfo.GetFiles("*.pdf") 
      ldoc = New Syncfusion.Pdf.Parsing.PdfLoadedDocument(f.OpenRead) 
      Syncfusion.Pdf.PdfDocument.Merge(doc, ldoc) 
      ldoc.Close() 
      doc.DisposeOnClose(ldoc) 
     Next 
     ldoc = Nothing 

     finalFileName = Format(CreateDate, "M-d-yy-HHmmss-") & outFileName 

     doc.Save(Path & "\" & finalFileName) 
     doc.Close() 
     doc = Nothing 

     dInfo = Nothing 

     If DeleteOriginal Then ' delete origional files 
      dInfo = New DirectoryInfo(Path) 
      For Each f As FileInfo In dInfo.GetFiles("*.pdf") 'For i As Integer = 0 To strFiles.Length - 1 ' run through all the files in the directory 
       Console.WriteLine("MergePDF2 10.1 : " & f.Name & " = " & finalFileName) 
       If Not f.Name = finalFileName Then 
        Console.WriteLine("MergePDF2 10.2 : Delete " & f.FullName) 
        My.Computer.FileSystem.DeleteFile(f.FullName, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin) 
       End If 
      Next 
     End If 
    End If 

    Return finalFileName 
    Exit Function 
sError: 
    ReportError("MergePDF2 " & Path & " " & Err.Description) 
    Console.WriteLine("MergePDF2 " & Path & " " & ErrorToString()) 
End Function 

Answer 1

나는 그들이 병합 기능에 문제가 있었다 알고, 그것을 해결입니다 있는지 확실하지 않습니다 또는 당신이 사용하는 버전. 병합을 시도 할 수도 있습니다.

Dim docTarget As PdfLoadedDocument = New PdfLoadedDocument(targetFile) 
Dim docAppend As PdfLoadedDocument = New PdfLoadedDocument(appendFile) 

docTarget.Append(docAppend) 
docTarget.Save() 
docTarget.Close(True) 
docAppend.Close(True) 

http://www.syncfusion.com/support/forums/pdf-windows/79124

또는 추가 페이지 하나 하나

doc.Pages.Add(ldoc.Pages[i]); 

http://www.syncfusion.com/support/kb/876/How%20to%20merge%20two%20PDF%20documents