• Alen
  • Восстановленный участник
  • На форуме с 2 июня 2004г.
  • Сообщений: 20
  • Спасибо: 0

Тема: Наличие конкретного font-файла в папке Fonts

Програмно (например, при нажатии на кнопку формы и выведение результата на MsgBox) требуется определить наличие конкретного font-файла (например Techno.shx) в папке Fonts программы AutoCAD ( C:\...\AutoCAD ...\Fonts\ )

  • На форуме с 16 мая 2004г.
  • Сообщений: 148
  • Спасибо: 0

Re: Наличие конкретного font-файла в папке Fonts

Private Sub Dir1_Change()
On Error Resume Next
Dim fso As New FileSystemObject
Dim ext As String
List1.Clear
Set fld = fso.GetFolder("C:\...\AutoCAD ...\Fonts")
Set fs = fld.Files
For Each f In fs
    ext = Right(f.Name, 3)
    If ext = Right(Combo1.Text, 3) Then
    List1.AddItem Left(f.Name, Len(f.Name) - 4)
    List1.Selected(List1.ListCount - 1) = True
    End If
Next
End Sub

  • На форуме с 16 мая 2004г.
  • Сообщений: 148
  • Спасибо: 0

Re: Наличие конкретного font-файла в папке Fonts

Сорри, первый реплэй "ушел" случайно...
в VBA->Tools->References-> Microsoft Scripting Runtime
Private Sub CommandButton1_Click()
On Error Resume Next
Dim fso As New FileSystemObject
Dim fld As Folder,fs as Files, f as File
Set fld = fso.GetFolder("C:\...\AutoCAD ...\Fonts")
Set fs = fld.Files
For Each f In fs
if f.Name="Techno.shx" then Msgbox "YES" : exit sub
    End If
Next
End Sub

  • Alen
  • Восстановленный участник
  • На форуме с 2 июня 2004г.
  • Сообщений: 20
  • Спасибо: 0

Re: Наличие конкретного font-файла в папке Fonts

> Тютюнников
Огромное Вам спасибо !!!
Уже не было надежды на помощь. Очень важна поддержка от знающих людей.

  • На форуме с 16 мая 2004г.
  • Сообщений: 148
  • Спасибо: 0

Re: Наличие конкретного font-файла в папке Fonts

почитайте хелп по скриптам, ссылки в теме https://www.caduser.ru/forum/topic11266.html
ну очень интересно