1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.

Помогите с VBS.

Тема в разделе "Программирование", создана пользователем VitShvets, 06.03.08.

  1. VitShvets

    VitShvets Активный участник

    547
    0
    Пишу скриптик небольшой, чтобы BackUp'ы делать. Совсем лыжи не едут.
    Смысл скрипта - заархивировать файл, который лежит в сети. Вот что примерно получилось:
    Смысл в том, что конструкция
    ругается, если файл не найден. Хочется, чтобы оно проверяло. Т.е.
    Как проверить есть файл или нет?
     
  2. svalx

    svalx Участник

    244
    0
    Function ReportFileStatus(filespec)
    Dim fso, msg
    Set fso = CreateObject("Scripting.FileSystemObject")
    If (fso.FileExists(filespec)) Then
    msg = filespec & " exists."
    Else
    msg = filespec & " doesn't exist."
    End If
    ReportFileStatus = msg
    End Function

    Взял из Platform SDK
     
  3. VitShvets

    VitShvets Активный участник

    547
    0
    Пасиб. Я так поступил:
    ЗЫ. А fso.FileExists по моему пробовал, чёт у мну не получилось... Тяжело в блокноте программировать.....
     
    Последнее редактирование: 06.03.08
  4. buffoon

    buffoon Активный участник

    6.368
    0
    так и не программируй в блокноте .. под VBS есть спец редакторы .. с синтаксис помощником
     
  5. VitShvets

    VitShvets Активный участник

    547
    0
    Да ну нафиг. Ради пяти строк кода целое мероприятие... Всё ужо работает. Вчера уже всё настроил. Сегодня утром порадовался свеженьким бакапам...