Sub Application_Quit () очищает значение определенной переменной

Question

Sub Application_Quit () очищает значение определенной переменной

Хотя вы можете запускать команды FTP с помощью WebSockets, более простое решение заключается в перечислении ваших файлов с помощью opendir на стороне сервера (PHP) и «выплескивании» его в исходный код HTML, поэтому он будет доступен для клиентская сторона.

Следующий код будет делать именно это,

Необязательно -

использовать тег для представления ссылки.

для получения дополнительной информации на стороне сервера (PHP), например размер файла,

PHP filesize TIP : & nbsp; вы также можете легко преодолеть ограничение на 2 ГБ файлового архива PHP, используя: AJAX + HEAD запрос + .htaccess правило, чтобы разрешить доступ Content-Length с клиентской стороны.

Полностью рабочий пример можно найти на my репозиторий github: download.eladkarako.com
Ниже приведен пример упрощенного (упрощенного) примера:

Результат DOM будет выглядят так:


  
  


  
    1.bat
    

    1.exe
    

    1.txt

1

vba outlook outlook-vba

задан Hook Hogan 18 February 2019 в 17:04

1 ответ

Другие вопросы по тегам:

vba outlook outlook-vba

Похожие вопросы:

score 0 · Answer 1

Использование FSO для создания временного текстового файла устраняет необходимость в глобальных переменных startTime и endTime, поскольку их значения сохраняются во временном файле и вызываются во время Application_Quit().

Private FSO As Object
Private oFile As Object

Private Sub Application_Startup()
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set oFile = FSO.CreateTextFile("C:\Users\username\Documents\Outlook Files\temp.txt")

    oFile.WriteLine "Session started at " + CStr(TimeValue(Now))
    oFile.Close

    Set oFile = Nothing
    Set FSO = Nothing
End Sub

Private Sub Application_Quit()
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set oFile = FSO.OpenTextFile("C:\Users\username\Documents\Outlook Files\temp.txt")

    MsgBox _
        oFile.readline + vbNewLine + _
        "Session ended at " + CStr(TimeValue(Now)), _
        vbOKOnly + vbInformation, _
        "Session Information"

    oFile.Close
    Set oFile = Nothing
    FSO.DeleteFile ("C:\Users\username\Documents\Outlook Files\temp.txt")
    Set FSO = Nothing
End Sub