Как разархивировать файл в VBScript с помощью внутренних опций Windows XP в

Решение простое, просто закомментируйте ваш код DataType и скомпилируйте его сначала, раскомментируйте код обратно, затем проблема будет решена.

XAML-файл просто не может ссылаться на пространства имен, которые не были построены.

14
задан Peter Mortensen 25 March 2010 в 11:33
поделиться

1 ответ

Просто установите ZipFile = Расположение zip-файла и ExtractTo = на место, куда должен быть извлечен zip-файл.

'The location of the zip file.
ZipFile="C:\Test.Zip"
'The folder the contents should be extracted to.
ExtractTo="C:\Test\"

'If the extraction location does not exist create it.
Set fso = CreateObject("Scripting.FileSystemObject")
If NOT fso.FolderExists(ExtractTo) Then
   fso.CreateFolder(ExtractTo)
End If

'Extract the contants of the zip file.
set objShell = CreateObject("Shell.Application")
set FilesInZip=objShell.NameSpace(ZipFile).items
objShell.NameSpace(ExtractTo).CopyHere(FilesInZip)
Set fso = Nothing
Set objShell = Nothing
32
ответ дан 1 December 2019 в 08:43
поделиться
Другие вопросы по тегам:

Похожие вопросы: