Dim fso as new filesystemobject ошибка

21K

18 февраля 2007 года

dedmakar

6 / / 25.12.2006

Хочу создать фаил. Набираю этот КОД:
Private Sub Command1_Click()
Dim fso As New FileSystemObject
fso.CreateTextFile «C:file1.txt»
End Sub
Выдаёт ошибку:
«User-defined type not defined.»
А в коде выделяет:
Private Sub Command1_Click()
Dim fso As New FileSystemObject
fso.CreateTextFile «C:file1.txt»
End Sub
Что делать? Я только новичок, если что SORRY….

2 ответа

405

19 февраля 2007 года

Dmitrii

554 / / 16.12.2004

Вам нужно либо подключить к проекту библиотеку Microsoft Scripting Runtime (файл scrrun.dll), либо использовать «позднее связывание». Пример для последнего способа:

Код:

Dim fso As Object, myFile As Object
Set fso = CreateObject(«Scripting.FileSystemObject»)
Set myFile = fso.CreateTextFile(«c:file1.txt»)
myFile.WriteLine(«This is a test.»)
myFile.Close

21K

20 февраля 2007 года

dedmakar

6 / / 25.12.2006

Спасибо!!! Я воспользовался Microsoft Common Dialog Control 6.0..
Полное объяснение тут

Источник

Объявление переменной типа File, FileSystemObject

Литраж

 Дата: Вторник, 20.01.2015, 11:35 |
Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 15


Репутация:
0
±

Замечаний:
0% ±


MS Office 2007

При запуске нижеследующего макроса возникает ошибка «User-defined type not defined»
Этот макрос открывает файлы из определенной папки, выбранной папки и вставляет значения, удаляет ненужные значения с правых столбцов. Ранее все работало.
Ругается на Dim aFile As File, fso As New FileSystemObject, wkb As Workbook

[vba]

Код

Sub ActPremiyFinal(ByVal Control As IRibbonControl)
‘
‘
Application.ScreenUpdating = False
Application.ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
Application.DisplayAlerts = False
Dim aFile As File, fso As New FileSystemObject, wkb As Workbook
ПутьКПапке = GetFolderPath(«Заголовок окна», ThisWorkbook.Path) ‘ запрашиваем имя папки
If ПутьКПапке = «» Then Exit Sub ‘ выход, если пользователь отказался от выбора папки
For Each aFile In fso.getfolder(ПутьКПапке).Files
DisplayAlerts = False
If fso.GetExtensionName(aFile.Name) Like «xls*» Then
Set wkb = Workbooks.Open(aFile.Path)
UpdateLinks = 0
‘****************************************************************************************
Application.ScreenUpdating = False
Application.ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
Application.DisplayAlerts = False
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns(«F:O»).Select
Selection.Delete Shift:=xlToLeft
‘*****************************************************************************************
wkb.Close SaveChanges:=True
Set wkb = Nothing
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways
‘заканчиваем
End Sub

[/vba]

Путь к папке берется из функции:

[vba]

Код

Function GetFolderPath(Optional ByVal Title As String = «Выберите папку», _
Optional ByVal InitialPath As String = «W:Журавлёва») As String
‘ функция выводит диалоговое окно выбора папки с заголовком Title,
‘ начиная обзор диска с папки InitialPath
‘ возвращает полный путь к выбранной папке, или пустую строку в случае отказа от выбора
Dim PS As String: PS = Application.PathSeparator
With Application.FileDialog(msoFileDialogFolderPicker)
If Not Right$(InitialPath, 1) = PS Then InitialPath = InitialPath & PS
.ButtonName = «Выбрать»: .Title = Title: .InitialFileName = InitialPath
If .Show <> -1 Then Exit Function
GetFolderPath = .SelectedItems(1)
If Not Right$(GetFolderPath, 1) = PS Then GetFolderPath = GetFolderPath & PS
End With
End Function

[/vba]

Господа, помогите, пожалуйста! Понять не могу в чем проблема? Уже 3 день бьюсь :'(

Проблема решена: Оказывается, что каким-то мистическим способом отключилась в references Microsoft Scripting Runtime (SCRUN.DLL). Так и думала, что проблема где-то там, но не знала как называется эта библиотека.
Всем спасибо. Тему можно закрыть. Извините.

Сообщение отредактировал Литраж — Вторник, 20.01.2015, 12:05
 

Ответить

nilem

 Дата: Вторник, 20.01.2015, 11:59 |
Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1612


Репутация:
563
±

Замечаний:
0% ±


Excel 2013, 2016

посмотрите в ссылках (Tools -> References), подключена ли библ. Windows Script Host Object Model

Яндекс.Деньги 4100159601573

 

Ответить

Литраж

 Дата: Вторник, 20.01.2015, 12:07 |
Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 15


Репутация:
0
±

Замечаний:
0% ±


MS Office 2007

nilem, Спасибо, сейчас и ее подключу:)
 

Ответить
Источник
 

copper-top

Пользователь

Сообщений: 1051
Регистрация: 22.10.2016

#1

19.12.2017 21:43:09

здравствуйте. прошу помочь. скопировал два макроса в файл. макрос Content_for_etfs_convert отработал без проблем. после запускаю replaceTxts. выходит ошибка и выделяется fso As New FileSystemObject синим. в файле, с которого скопировал, работает как надо.может, какие то библиотеки надо подключить?

Код 
Sub Content_for_etfs_convert()
Kill "D:option programsотборIN*.*"
Kill "D:option programsотборOUT*.*"
  Dim fso
  Set fso = CreateObject("scripting.filesystemobject"):  fso.CopyFolder "C:UsersАдминистраторDownloadsStocksrcdistdownloads", "D:option programsотборIN"
 
Set fso = CreateObject("Scripting.FileSystemObject")
cPath = fso.GetParentFolderName(ThisWorkbook.FullName)
 
cPathIn = cPath & "In"
cPathOut = cPath & "Out"
 
Set Folder = fso.GetFolder(cPathIn)
For Each File In Folder.Files
   If fso.GetExtensionName(File.Name) = "txt" Then
      With fso.OpenTextFile(cPathIn & File.Name, 1, True)
         cIn = .ReadAll
         .Close
      End With
      cOut = vbCrLf & "DATE"
      arrL = Split(cIn, vbLf)
      For i = LBound(arrL) To UBound(arrL)
         If Len(arrL(i)) > 0 Then
            arrD = Split(arrL(i), ",")
            arrD(0) = Right(arrD(0), 2) & "." & Mid(arrD(0), 5, 2) & "." & Left(arrD(0), 4)
            For j = 1 To 4
               cnum = Replace(arrD(j), ".", ",")
               arrD(j) = Replace(CStr(Round(CDbl(cnum), 2)), ",", ".")
            Next
            cnum = Replace(arrD(6), ".", ",")
            arrD(6) = Replace(CStr(Round(CDbl(cnum), 0)), ",", ".")
            cOut = cOut & vbCrLf & Join(Array(arrD(0), arrD(1), arrD(2), arrD(3), arrD(4), arrD(6)), vbTab)
         End If
      Next
      With fso.OpenTextFile(cPathOut & File.Name, 2, True)
         .Write cOut
         .Close
      End With
   End If
Next

 
MsgBox "Ok"

End Sub
Sub replaceTxts()
    Dim fso As New FileSystemObject, curFolder As Folder, curFile As File
    folderPath = "D:option programsотборOUT"
    Set curFolder = fso.GetFolder(folderPath)
    For Each curFile In curFolder.Files
        If Right(curFile.Path, 4) = ".txt" Then
            curFile.copy Replace(curFile.Path, ".txt", ".csv")
            curFile.Delete
        End If
    Next curFile
End Sub
 

Hugo

Пользователь

Сообщений: 23371
Регистрация: 22.12.2012

#2

19.12.2017 21:48:58

Цитата
copper-top написал:
может, какие то библиотеки надо подключить?

— не может, а обязательно. Microsoft Scripting Runtime.
Или не подключайте, а юзайте как в первом коде, через createobject

Изменено: Hugo — 19.12.2017 21:50:03
 

The_Prist

Пользователь

Сообщений: 14264
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

#3

19.12.2017 21:51:15

Либо для файла с кодом в VBA -Tools -References подключите библиотеку Microsoft Scripting Runtime, либо запишите процедуру так:

Код 
Sub replaceTxts()
    Dim fso As Object, curFolder As Folder, curFile As File
    Set fso = CreateObject("scripting.filesystemobject")
    folderPath = "D:option programsотборOUT"
    Set curFolder = fso.GetFolder(folderPath)
    For Each curFile In curFolder.Files
        If Right(curFile.Path, 4) = ".txt" Then
            curFile.copy Replace(curFile.Path, ".txt", ".csv")
            curFile.Delete
        End If
    Next curFile
End Sub

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

 

Hugo, The_Prist,  подключил библиотеку Microsoft Scripting Runtime. заработало.спасибо.
 

БМВ

Модератор

Сообщений: 21650
Регистрация: 28.12.2016

Excel 2013, 2016

copper-top,  ну реально кажется, что вы даже не пытаетесь решить проблему самостоятельно, сразу сюда.
Dim fso As New FileSystemObject — это зачем?  ограничте это Dim fso As Object,   Folder,  File — в туже топку

Да и в целом  вопрос к excel ваще не относится. Чистой воды VBS скрипты. То что они работают в VBA, то это только до первой Wscript. … (Я часто Excel как отладчик пользую, для  простых и не очень VBS) .

По вопросам из тем форума, личку не читаю.

 

copper-top

Пользователь

Сообщений: 1051
Регистрация: 22.10.2016

#6

19.12.2017 22:23:58

Цитата
БМВ написал:
не пытаетесь решить проблему самостоятельно

как я решу, если макросами умею только пользоваться. макросы получил на этом форуме, за что спасибо и форуму и авторам.

Цитата
БМВ написал:
Чистой воды VBS скрипты

так и есть. получил как скрипт. был скриптом — стал макросом.  
 

БМВ

Модератор

Сообщений: 21650
Регистрация: 28.12.2016

Excel 2013, 2016

#7

19.12.2017 22:37:05

Offtop

Цитата
copper-top написал: был скриптом — стал макросом

Как скриптом был, так им и остался, Возможно кто-то кроме меня из форумчан застал первые выпуски Excel в которых реально макросы записывались в лист условными командами вот так например NDX = 1: Do While NDX < IDN: SendKeys «{down}»: NDX = NDX + 1: Loop , вот с тех пор и повелось, что все что на VBA макросом кличут, хотя это уже давно не так.

По вопросам из тем форума, личку не читаю.

Источник

Is there something that I need to reference? How do I use this:

Dim fso As New FileSystemObject
Dim fld As Folder
Dim ts As TextStream

I am getting an error because it does not recognize these objects.

Andrei Konstantinov's user avatar

asked Jul 13, 2010 at 0:00

Alex Gordon's user avatar

Within Excel you need to set a reference to the VBScript run-time library.
The relevant file is usually located at WindowsSystem32scrrun.dll

  • To reference this file, load the
    Visual Basic Editor (ALT+F11)
  • Select Tools > References from the drop-down menu
  • A listbox of available references will be displayed
  • Tick the check-box next to ‘Microsoft Scripting Runtime‘
  • The full name and path of the scrrun.dll file will be displayed below the listbox
  • Click on the OK button.

This can also be done directly in the code if access to the VBA object model has been enabled.

Access can be enabled by ticking the check-box Trust access to the VBA project object model found at File > Options > Trust Center > Trust Center Settings > Macro Settings

VBA Macro settings

To add a reference:

Sub Add_Reference()

    Application.VBE.ActiveVBProject.References.AddFromFile "C:WindowsSystem32scrrun.dll"
'Add a reference

End Sub

To remove a reference:

Sub Remove_Reference()

Dim oReference As Object

    Set oReference = Application.VBE.ActiveVBProject.References.Item("Scripting")

    Application.VBE.ActiveVBProject.References.Remove oReference
'Remove a reference

End Sub

Stephen Ostermiller's user avatar

answered Jul 13, 2010 at 10:46

Robert Mearns's user avatar

Robert MearnsRobert Mearns

11.8k3 gold badges38 silver badges42 bronze badges

3

In excel 2013 the object creation string is:

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

instead of the code in the answer above:

Dim fs,fname
Set fs=Server.CreateObject("Scripting.FileSystemObject")

answered Jul 31, 2016 at 19:54

Stefano Spinucci's user avatar

1

These guys have excellent examples of how to use the filesystem object http://www.w3schools.com/asp/asp_ref_filesystem.asp

<%
dim fs,fname
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fname=fs.CreateTextFile("c:test.txt",true)
fname.WriteLine("Hello World!")
fname.Close
set fname=nothing
set fs=nothing
%>

shA.t's user avatar

shA.t

16.5k5 gold badges54 silver badges111 bronze badges

answered Jul 13, 2010 at 0:04

Gerald Ferreira's user avatar

Gerald FerreiraGerald Ferreira

1,3492 gold badges22 silver badges44 bronze badges

1

After adding the reference, I had to use

Dim fso As New Scripting.FileSystemObject

answered Feb 15, 2018 at 23:25

thedanotto's user avatar

thedanottothedanotto

6,7955 gold badges45 silver badges43 bronze badges

After importing the scripting runtime as described above you have to make some slighty modification to get it working in Excel 2010 (my version). Into the following code I’ve also add the code used to the user to pick a file.

Dim intChoice As Integer
Dim strPath As String

' Select one file
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False

' Show the selection window
intChoice = Application.FileDialog(msoFileDialogOpen).Show

' Get back the user option
If intChoice <> 0 Then
    strPath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
Else
    Exit Sub
End If

Dim FSO As New Scripting.FileSystemObject
Dim fsoStream As Scripting.TextStream
Dim strLine As String

Set fsoStream = FSO.OpenTextFile(strPath)

Do Until fsoStream.AtEndOfStream = True
    strLine = fsoStream.ReadLine
    ' ... do your work ...
Loop

fsoStream.Close
Set FSO = Nothing

Stephen Ostermiller's user avatar

answered May 4, 2018 at 16:18

FIRE FOX's user avatar

Источник

Объект FileSystemObject, предоставляющий в VBA Excel доступ к файловой системе компьютера. Создание экземпляра FileSystemObject и его методы. Примеры.

FileSystemObject – это объект, который предоставляет доступ к файловой системе компьютера: дискам, папкам (каталогам), файлам.

Объект FileSystemObject обеспечивает в коде VBA Excel следующие возможности:

  • Проверка существования диска, папки или файла.
  • Создание новой папки.
  • Создание текстового файла и предоставление последовательного доступа для записи.
  • Открытие текстового файла и предоставление последовательного доступа для записи или чтения.
  • Копирование, перемещение и удаление папок и файлов.
  • Работа с путями к папкам и файлам.
  • Возвращение имен дисков, папок и файлов.

Создание, свойство, методы

Создание экземпляра FileSystemObject

Создать новый экземпляр объекта FileSystemObject можно с помощью раннего или позднего связывания.

Раннее связывание

В одну строку:

Dim fso As New FileSystemObject

В две строки:

Dim fso As FileSystemObject

Set fso = New FileSystemObject

Позднее связывание

Dim fso As Object

Set fso = CreateObject(«Scripting.FileSystemObject»)

Свойство FileSystemObject

В VBA Excel у объекта FileSystemObject есть только одно свойство (Excel 2016):

Свойство Описание
Drives Возвращение коллекции всех дисков на компьютере

Методы FileSystemObject

Свойство Описание
BuildPath Добавление имени в существующий путь
CopyFile Копирование одного или нескольких файлов из одного расположения в другое
CopyFolder Копирование одной или нескольких папок из одного расположения в другое
CreateFolder Создание новой папки
CreateTextFile Создание текстового файла и возвращение объекта TextStream, используемого для записи в файл
DeleteFile Удаление одного или нескольких указанных файлов
DeleteFolder Удаление одной или нескольких указанных папок
DriveExists Проверка существования указанного диска
FileExists Проверка существования указанного файла
FolderExists Проверка существования указанной папки
GetAbsolutePathName Возвращение полного пути из корневого каталога диска для указанного пути
GetBaseName Возвращение базового имени указанного файла или папки
GetDrive Возвращение объекта Drive, соответствующего диску в указанном пути
GetDriveName Возвращение имени диска указанного пути
GetExtensionName Возвращение расширения файла для последнего компонента в указанном пути
GetFile Возвращение файла по указанному пути
GetFileName Возвращение имени файла или папки для последнего компонента в указанном пути
GetFileVersion Возвращение версии файла для последнего компонента в указанном пути
GetFolder Возвращение папки по указанному пути
GetParentFolderName Возвращение имени родительской папки последнего компонента в указанном пути
GetSpecialFolder Возвращение пути к некоторым специальным папкам Windows
GetStandardStream Возвращение стандартного ввода, вывода или потока ошибок
GetTempName Возвращение созданного случайным образом временного файла или папки
Move Перемещение указанного файла или папки из одного места в другое
MoveFile Перемещение одного или нескольких файлов из одного места в другое
MoveFolder Перемещение одного или нескольких папок из одного места в другое
OpenTextFile Открытие файла по указанному пути и возвращение объекта TextStream, используемого для чтения, записи и добавления данных в файл

Смотрите, как с помощью VBA Excel можно открыть папку в проводнике Windows для просмотра.

Примеры кода с FileSystemObject

Пример 1
Получение списка всех дисков на компьютере с помощью свойства Drives:

Sub Primer1()

Dim fso, drs, dr, str

  Set fso = CreateObject(«Scripting.FileSystemObject»)

  Set drs = fso.Drives

    For Each dr In drs

      str = str & dr.DriveLetter & _

      » — « & dr.VolumeName & vbCrLf

    Next

  MsgBox str

End Sub

Используемые переменные:

  • fso – объект FileSystemObject;
  • drs – коллекция дисков на компьютере (Drives);
  • dr – один диск (Drive);
  • str – строка со списком всех дисков (буквенное обозначение и имя).

Используемые свойства диска:

  • DriveLetter – буквенное обозначение диска;
  • VolumeName – присвоенное диску имя.

Если у вас на компьютере только системный диск «C», вставьте пару USB-накопителей (флешек). Имя диску «C» можно присвоить, выбрав его в проводнике и нажав клавишу «F2».

Результат работы кода будет примерно такой:

Список дисков в информационном окне

Пример 2
Создание новой папки, проверка ее существования и удаление:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

Sub Primer2()

‘Объявляем переменную fso как новый экземпляр

‘FileSystemObject (раннее связывание)

  Dim fso As New FileSystemObject, _

  adr As String

‘В строковую переменную записываем

‘путь и имя создаваемой папки

  adr = ThisWorkbook.Path & «temp»

  With fso

‘Создаем новую папку

    .CreateFolder (adr)

‘Проверяем существование новой папки (True)

    MsgBox .FolderExists(adr)

‘Возвращаем имя новой папки (temp)

    MsgBox .GetFileName(adr)

‘Удаляем папку

    .DeleteFolder (adr)

‘Проверяем существование папки (False)

    MsgBox .FolderExists(adr)

  End With

End Sub

При остановке программы во время отображения одного из первых двух информационных окон MsgBox, вы можете перейти в проводник и убедиться, что в каталоге, где расположен файл Excel с этим кодом VBA, есть папка «temp».

Источник

Home
> Technology > FileSystemObject in Visual Basic 6.0

When you tried to declare Dim fso as FileSystemObject in your code and you get an error, most probably the only thing you need to do is go to Project > References. At the list of the available references, scroll down to ‘Microsoft Scripting Runtime (scrrun.dll)’ make sure it is checked (right symbol at the checkbox), and click OK.

Your code should be able to use FileSystemObject by now.

Again, hope it helps somebody.

Источник
  • Remove From My Forums

  • Question

  • I have encountered an error when trying to create a FileSystemObject.  This code has been running fine for about a year and a half, but now on one system my user is recieving:

           «Run-Time error ‘429’

           ActiveX component can’t create object»

     The error occurs on this line:

              Dim fso as Object

               fso = CreateObject(«Scripting.FileSystemObject»)

Answers

  •          Dim fso as Scripting.FileSystemObject

              set fso = new Scripting.FileSystemObject

    Also reference the MS Scritping Runtime. That’s all I can do.

Источник
  • Remove From My Forums

  • Вопрос

  • Прошу помощи. На работе перестали работать собственноручно писанные и много лет работающие скрипты.

    Код прерывается на попытке создать Scripting.FileSystemObject

    В прошлый раз, когда возникла эта проблема (непонятно после чего, скриптами пользуюсь раз в пару дней, момент когда перестают работать не отследить) пришлось откатиться к бэкапу. Но т.к. проблема возникла снова — необходимо
    научиться ее решать.

    Потому прошу помощи уважаемого сообщества. Исходные данные:

    Win7 x64.

    код, не работающий из файла .vbs 

    '#$language = "VBScript"
'#$interface = "1.0"
Dim WSH, FSO
Set WSH = CreateObject ("WSCript.shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

    Выдает ошибку 8002801D  «библиотека не зарегистрированна».

    консольные команды из под администратора

    regsvr32 scrrun.dll /u — Модуль scrrun.dll загружен, но не удалось выполнить вызов DllUnregisterServer, код ошибки 0x8002801в

    regsvr32 scrrun.dll /i — Модуль scrrun.dll загружен, но точка входа DllInstall не найдена. Проверьте, что «scrrun.dll» является правильным файлом DLL или OCX и повторите попытку.

    regsvr32 scrrun.dll — Успешное выполнение DllUnregisterServer в scrrun.dll

    Но после этого успешного проблема не уходит.

    Куда копать дальше? Есть вероятность, что это произошло после обновлений, но в журнале их великое множество, не отследить.

Ответы

  • Отвечаю сам себе. В моем случае.

    Идем в regeditИщем первую попавшуюся запись с содержанием Scripting.FileSystemObject

    у меня это

    HKEY_LOCAL_MACHINESOFTWAREClassesCLSID{0D43FE01-F093-11CF-8940-00A0C9054228}ProgID

    в сосдней папке с которым (TypeLib)  есть ссылка на этот самый TypeLIb

    HKEY_LOCAL_MACHINESOFTWAREClassesCLSID{0D43FE01-F093-11CF-8940-00A0C9054228}TypeLib:

    {420B2830-E718-11CF-893D-00A0C9054228}

    Теперь ищем раздел {420B2830-E718-11CF-893D-00A0C9054228}

    в результатах поиска будет много ссылок на него, на нам нужен именно раздел

    [HKEY_CLASSES_ROOTTypeLib{420B2830-E718-11CF-893D-00A0C9054228}]

    Нажимаем по нему правой кнопкой. Нужно выставить разрешения, для чего мне по кнопочке «дополнительно» пришлось сделать админастратора владельцем (вместо TrustedInstaller), потом получилось сделать
    разрешение себе на редактирование этой ветки.

    Затем восстанавливаем значения этой ветки, я взял значения с аналогичной операционки у коллеги. Вот содержание получившегося reg файла 

    Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOTTypeLib{420B2830-E718-11CF-893D-00A0C9054228}]

[HKEY_CLASSES_ROOTTypeLib{420B2830-E718-11CF-893D-00A0C9054228}1.0]
@="Microsoft Scripting Runtime"

[HKEY_CLASSES_ROOTTypeLib{420B2830-E718-11CF-893D-00A0C9054228}1.0]

[HKEY_CLASSES_ROOTTypeLib{420B2830-E718-11CF-893D-00A0C9054228}1.0win32]
@="C:\Windows\SysWOW64\scrrun.dll"

[HKEY_CLASSES_ROOTTypeLib{420B2830-E718-11CF-893D-00A0C9054228}1.0win64]
@="C:\Windows\system32\scrrun.dll"

[HKEY_CLASSES_ROOTTypeLib{420B2830-E718-11CF-893D-00A0C9054228}1.0FLAGS]
@="0"

[HKEY_CLASSES_ROOTTypeLib{420B2830-E718-11CF-893D-00A0C9054228}1.0HELPDIR]
@="C:\Windows\system32"

    После добавления этого в мой реестр — скрипты снова заработали.

    • Предложено в качестве ответа

      26 апреля 2016 г. 3:35

    • Помечено в качестве ответа
      Dmitriy VereshchakMicrosoft contingent staff
      30 апреля 2016 г. 17:19

Источник

Понравилась статья? Поделить с друзьями:
  • Diiregisterserver код ошибки 0x80004005
  • Digora код ошибки 10
  • Digma ошибка сим карты
  • Digma ошибка диска
  • Digma 201 ошибка подключения к сети