Извлеките файл CAB в Visual Basic. Возможно?

За последние пару дней я провел некоторое исследование для требования прикрепить файл InfoPath (.xsn), преобразовать его в .cab и извлечь из него все файлы. Кажется, я не могу найти хороших фрагментов кода, которые позволили бы этому произойти. Большинство потоков, с которыми я сталкивался до сих пор, требуют использования стороннего программного обеспечения, которого я хочу избежать любой ценой. Я думаю, что мне нужно использовать пакетный файл для извлечения. Я не смог найти хороших постов или тем по этому поводу (которые работают).

Мы очень ценим любой полезный вклад или сообщения о том, как это сделать с помощью Visual Basic или командного файла.


person frank billy    schedule 10.12.2013    source источник


Ответы (1)


Вам нужно будет добавить ссылку на Microsoft Shell Controls and Automation. Как только это будет сделано, посмотрите этот фрагмент кода:

        Dim sc As New Shell32.Shell()
    IO.Directory.CreateDirectory("C:\test")
    Dim output As Shell32.Folder = sc.NameSpace("C:\test")
    Dim input As Shell32.Folder = sc.NameSpace("C:\Form1.cab")
    output.CopyHere(input.Items, 4)

Это должно сработать.

person mwilson    schedule 10.12.2013