У меня есть консольное приложение, которое перечисляет файлы docx в папке и преобразует их в другой тип файла (например, pdf).Открытие каждого файла docx в папке и сохранение в виде другого типа файлов
Вот код:
Sub Main()
For Each arg As String In My.Application.CommandLineArgs
Select Case Trim(LCase(arg))
Case "/docx-pdf"
Dim oWord As Word.Application
Dim oDoc As Word.Document
Dim path As String
Console.WriteLine("Podaj scieżkę folderu:")
path = Console.ReadLine()
Dim files As String() = Directory.GetFiles(path + "/", "*.docx")
For Each file As String In files
oWord = CreateObject("word.application")
oWord.Visible = False
oDoc = oWord.Documents.Open(file, ReadOnly:=True)
oDoc.SaveAs(FileName:=file.Replace(".docx", ".pdf"), FileFormat:=Word.WdSaveFormat.wdFormatPDF)
oWord.Quit()
Next
End Select
Next
End Sub
Моя проблема заключается в том, что после преобразования каждого файла в папке, приложение пытается открыть еще один, который не существует, и я получаю THIS ошибку (по крайней мере, выглядит так).
О чем я забыл?
Не могли бы вы перевести ошибку? Лучший способ узнать, куда он идет не так, - это пройти через свой код с помощью отладчика. –