system32. как узнать?

[ku3ia]

доброго времени суток.

можно ли сделать так, чтобы при нажатии кнопки на странице сайта, пользователю выдавалось сообщение о том, находится ли у него в системной папке операционной системы определенный файл.

зачем мне это надо. я на своем сайте выкладываю программы, которые пишу на vb6. все программы требуют наличия в системной папке операционной системы компьютера пользователя файла msvbvm60.dll - MS Visual Basic Virtual Machine 6.0.

Можно конечно выкладывать архив и с этим файлом, но:
1. слишком большой дистрибутив получается (файлик весит 1,5 мега);
2. насколько я понимаю ограничен хостинг в 10 мег;

что я бы хотел сделать. нашел юзер программу. хочет ее скачать. но прежде чем скачать нажимает кнопку, типа проверить наличие библиотеки времени выполнения. если есть - качаем только программу, если нет - качаем и программу, и дистрибутив.

привожу как это у меня организовано на vb:

Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Const gintMAX_SIZE% = 255                        'Maximum buffer size
Public Const gstrSEP_DIR$ = "\"                         ' Directory separator character
Public Const gstrSEP_URLDIR$ = "/"                      ' Separator for dividing directories in URL addresses.


'-----------------------------------------------------------
' FUNCTION: GetWindowsSysDir
'
' Calls the windows API to get the windows\SYSTEM directory
' and ensures that a trailing dir separator is present
'
' Returns: The windows\SYSTEM directory
'-----------------------------------------------------------
'
Public Function GetWindowsSysDir() As String
    Dim strBuf As String

    strBuf = Space$(gintMAX_SIZE)
    '
    'Get the system directory and then trim the buffer to the exact length
    'returned and add a dir sep (backslash) if the API didn't return one
    '
    If GetSystemDirectory(strBuf, gintMAX_SIZE) Then
        GetWindowsSysDir = StringFromBuffer(strBuf)
        AddDirSep GetWindowsSysDir
    End If
End Function

Public Function StringFromBuffer(Buffer As String) As String
    Dim nPos As Long

    nPos = InStr(Buffer, vbNullChar)
    If nPos > 0 Then
        StringFromBuffer = Left$(Buffer, nPos - 1)
    Else
        StringFromBuffer = Buffer
    End If
End Function

'-----------------------------------------------------------
' SUB: AddDirSep
' Add a trailing directory path separator (back slash) to the
' end of a pathname unless one already exists
'
' IN/OUT: [strPathName] - path to add separator to
'-----------------------------------------------------------
'
Public Sub AddDirSep(strPathName As String)
    strPathName = RTrim$(strPathName)
    If Right$(strPathName, Len(gstrSEP_URLDIR)) <> gstrSEP_URLDIR Then
        If Right$(strPathName, Len(gstrSEP_DIR)) <> gstrSEP_DIR Then
            strPathName = strPathName & gstrSEP_DIR
        End If
    End If
End Sub

этот код я вытянул из исходного установщика, который бесплатно распространяется с vb6.

можно ли это реализовать?

[etc]

Во Flash? Нет, нельзя.

[ku3ia]

Сообщение от __etc

Во Flash? Нет, нельзя.

жаль. спасибо за ответ

[Skoder]

Если тебе нужно узнать существует ли файл, то можно, только нужно знать полный адрес к файлу.

[ku3ia]

Сообщение от Skoder

Если тебе нужно узнать существует ли файл, то можно, только нужно знать полный адрес к файлу.

так винда ж лежать где угодно может... спасибо, но все ж предусмотреть нельзя. конечно можно сделать базу адресов по всем разделам от А до Я, используя каталоги system & system32 но это гемор, да и не факт, что сработает.

спасибо за ответ.

[etc]

Не сработает, доступа к локальным файлам у тебя просто нет.