All Forums
 Категория Visio
 Форум Вопросы и ответы
 Работа с файловой системой
Author Previous Topic Topic Next Topic  

Surrogate

Russia
122 Posts
Posted - 05/09/2010 :  18:26:06  Visit Surrogate's Homepage
только вчера сделал макрос работающий с файловой системой:
в фрагменте процедуры происходит поиск файла с именем RNAME в папке cfgpath

вот такой был код
Const cfgpath = "D:\test\config\"
Dim RNAME As String
RNAME = Mid(ThisDocument.DocumentSheet.Cells("USER.R_NAME.Value").Formula, 2, 9)
Dim pathfind As String
Dim fs As New FileSystemObject
Dim fl As Folder
Dim fls As Files
Dim f As File
Dim s As String
s = ""
Dim x As Integer
Set fl = fs.GetFolder(cfgpath)
Set fls = fl.Files
Debug.Print RNAME
For Each f In fls
s = f.Name
Debug.Print RNAME, s
If InStr(s, RNAME) = 1 Then
pathfind = s
Exit For
Else
End If
Next

вчера и сегодня утром все работало. потом у меня прошел сбой, теперь при запуске этой процедуры происходит ошибка в строке
Set fl = fs.GetFolder(cfgpath)
однажды выскочило сообщение о сути ошибки. что-то об отсутствии какой-то библиотеки. Microsoft scripting runtime подключена к проекту
не могу понять в чем причина ошибки. и так во всех файлах использующих данную процедуру!

Tumanov

Russia
1198 Posts
Posted - 05/09/2010 :  19:01:49
Выполните аналогичный макрос не в Visio. Если и там не сработает, значит что-то с системой.
Go to Top of Page

Surrogate

Russia
122 Posts
Posted - 05/09/2010 :  19:28:31  Visit Surrogate's Homepage
в Excel тоже не пошло :(
это теперь винду сносить нужно ?
------------------------------------------------------------------------
слава Богу ничего сносить не пришлось !!!
Edited by - Surrogate on 05/09/2010 21:01:35
Go to Top of Page

bdfy

Belarus
267 Posts
Posted - 05/10/2010 :  13:10:12
неужели перезагрузка помогла ?
Go to Top of Page

Surrogate

Russia
122 Posts
Posted - 05/10/2010 :  14:04:16  Visit Surrogate's Homepage
просто перезагрузка не помогла.

где-то на англоязычном сайте я прочел, способ восстановления файла
scrrun.dll. там было много вариантов я выбрал самый простой как мне показалось: в винде есть функция защиты файлов. запускается она так,
в командной строке "Выполнить" написать sfc /scannow и Enter. После завершения процесса перезагрузился, и библиотека scrrun.dll снова у меня заработала :)
Go to Top of Page
  Previous Topic Topic Next Topic  
Данный сайт является архивом форума visio.artberg.ru, который был закрыт в связи с переходом на новую платформу visio.getbb.ru
Все материалы доступны только для чтения! Если у вас появились вопросы, или вы хотите что-то обсудить, связанное с Visio, обращайтесь на новый форум!
Архив был создан благодаря совместным усилиям Генадия Туманова @Tumanov (visio.artberg.ru), Александра ака @Surrogate (visio.getbb.ru), и Николая Белых @nbelyh (unmanagedvisio.com)