Всем привет, помогите в следующем. Пишу программку для себя и одновременно учу программирование на VB6, так для себя. Я понимаю, что это не актуально, но все же.
Как мне можно определить папку ProgramData по типу %AppData% в нижнем коде или хотя бы, чтобы указывалось на системный диск по типу %SYSTEMDRIVE% (Если писать ничего не помогает), велики гугл тоже не помогает
---------------------------
Public Function FolderExists(ByVal strPathName As String) As Boolean
Dim DirectoryFound As String
Const errPathNotFound As Integer = 76
On Error GoTo 0
DirectoryFound = Dir(strPathName, vbDirectory)
If (Len(DirectoryFound) = 0 Or Err = errPathNotFound) Then
FolderExists = False
Else
FolderExists = True
End If
End Function
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
///////////////////////////вот тут///////////////////////////
If FolderExists("C:\ProgramData\ESET\ESET NOD32 Antivirus\updfiles\") = False Then
//////////////////////////////////////////////////////////////////
Img1.Visible = False
Img0.Visible = True
Form1.Caption = "Offline Update ESET NOD32 - не подключено"
Command1.Enabled = False
Command2.Enabled = False
Else
Img0.Visible = False
Img1.Visible = True
Form1.Caption = "Offline Update ESET NOD32 - Подключено"
Command1.Enabled = True
Command2.Enabled = True
End If
End Sub
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.