Проверка наличия файла/подпапки в папке

[Tathagata]

Подскажите, Господа по сабжу.
Глянул в API ничего там нет.

[Konst_One]

а команда DIR на что?

[Tathagata]

а команда DIR на что?

Через MS-DOS комманды гемморойно. Тем более что мне надо не список файлов а значение True|False

[GSerg]

[Konst_One]

Код: Выделить всё

Dim b as Boolean
if Dir("c:\Temp\File1.Ext")<>"" then
    b=True
else
    b=False
end if


[tyomitch]

:roll:

Konst_One сам виноват - обозвал зачем-то функцию Dir командой...

И не устаю напоминать, что проверка If Len(...) быстрее, чем сравнение с пустой строкой.

[Tathagata]

Код: Выделить всё

Dim b as Boolean
if Dir("c:\Temp\File1.Ext")<>"" then
    b=True
else
    b=False
end if


Функция не работает без указания файла, а я не знаю какой файл лежит в директории. Кроме того, проверка должна обрабатываться в цикле, переходить от поддиректории к поддиректории и проверять наличие файлов.
Может через WMI можно как-то решить это?

[alibek]

If Len(Dir$("C:\Temp\*.doc")) = 0 Then ...

Код: Выделить всё

File$ = Dir$("C:\Dir1\*.*")
While Len(File$) > 0
  Debug.Print File$
  File$ = Dir$
Wend


[tyomitch]

Функция не работает без указания файла, а я не знаю какой файл лежит в директории.

Работает - вторым параметром надо указать vbDirectory

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

Без проблем. Сформулируй задачу пояснее - поможем.

Может через WMI можно как-то решить это?

А зачем?

[Sedge]

Как, господа?! Ни одной API-функции?!
Так же не интересно!

Код: Выделить всё

Option Explicit

Private Declare Function PathIsDirectoryEmpty Lib "shlwapi.dll" Alias "PathIsDirectoryEmptyA" _
  (ByVal pszPath As String) As Long

Private Declare Function PathIsDirectory Lib "shlwapi.dll" Alias "PathIsDirectoryA" _
  (ByVal pszPath As String) As Long

Private Declare Function PathAddBackslash Lib "shlwapi.dll" Alias "PathAddBackslashA" _
  (ByVal pszPath As String) As Long

Const MAX_PATH = 260

Private Function AddBackslash(ByVal sPath As String) As String
'
On Error GoTo eRes

'//------------------------------------------------------------------------------------
  Dim lRes As Long
  Dim sBuffer As String
'//------------------------------------------------------------------------------------
    sBuffer = Left$(sPath & String(MAX_PATH, vbNullChar), MAX_PATH)
    lRes = PathAddBackslash(sBuffer)
    If lRes <> 0 Then
        AddBackslash = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
    End If

Exit Function
eRes:
  MsgBox Err.Description
End Function
Private Sub PrintDirInfo(sInitialPath As String)
'
On Error GoTo eRes

'//------------------------------------------------------------------------------------
  Dim sTmpPath As String, j As Long
  Dim sDirArray() As String, lArraySize As Long
  Dim sBuffer As String
'//------------------------------------------------------------------------------------

sBuffer = Left$(sInitialPath & String(MAX_PATH, vbNullChar), MAX_PATH)
If PathIsDirectory(sBuffer) Then
  If PathIsDirectoryEmpty(sBuffer) Then
    lstDirs.AddItem sInitialPath & " - Empty"
  Else
    lstDirs.AddItem sInitialPath & " - Not Empty!"
    sTmpPath = Dir(sInitialPath & "\*", vbDirectory)
    lArraySize = 0
    ReDim sDirArray(lArraySize)
    Do While Not sTmpPath = ""
      If sTmpPath <> "." And sTmpPath <> ".." Then
        lArraySize = lArraySize + 1
        ReDim Preserve sDirArray(lArraySize)
        sDirArray(lArraySize) = sTmpPath
      End If
      sTmpPath = Dir
      DoEvents
    Loop
    For j = 1 To lArraySize
      PrintDirInfo (AddBackslash(sInitialPath) & sDirArray(j))
      DoEvents
    Next
  End If
End If

Exit Sub
eRes:
  MsgBox Err.Description
  Stop
End Sub

Private Sub cmdTestPath_Click()
'
On Error GoTo eRes

'//------------------------------------------------------------------------------------
  Dim sInitialPath As String
''//------------------------------------------------------------------------------------

sInitialPath = "d:\temp1"
lstDirs.Clear
PrintDirInfo (AddBackslash(sInitialPath))

Exit Sub
eRes:
  MsgBox Err.Description
  Stop
End Sub


[tyomitch]

Как, господа?! Ни одной API-функции?!
Так же не интересно!

Нет, интереснее всего было бы использовать невидимые FileListBox и DirListBox...

[alibek]

Смеются тут... А я года два-три назад так и делал...

[tyomitch]

Надо же, как интересно тебе было жить

[alibek]

Ага Вот раскопаю тот проект (в планах был mp3-органайзер) и покажу, ужаснетесь все
Как пересматриваю некоторые свои старые проекты, так стыдно становится

[tyomitch]

Как пересматриваю некоторые свои старые проекты, так стыдно становится

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

[hCORe]

так стыдно становится

Мне иногда тоже

[Sedge]

Ага Вот раскопаю тот проект (в планах был mp3-органайзер) и покажу, ужаснетесь все
Как пересматриваю некоторые свои старые проекты, так стыдно становится

ИМХО - нет Дао в том, чтобы стыдится программы, которая нормально работает, вне зависимости от того как эта самая нормальная работа достигается

[Tathagata]

Ситуация усложняется тем, что в конечном итоге требуется сопряжение VBScript и обработки написанной в 1С, а в 1С функции VB (не VBscript) не обрабатываются. Более того нет конструкции For Each. Поэтому Dir и API, применить не получилось.

[alibek]

Тогда твоя судьба использовать FSO.

[Ruslan Demidow]

Ситуация усложняется тем, что в конечном итоге требуется сопряжение VBScript и обработки написанной в 1С, а в 1С функции VB (не VBscript) не обрабатываются. Более того нет конструкции For Each. Поэтому Dir и API, применить не получилось.

Как это нет?
Ты в корне не прав. Я ещё три года назад написал обработку для 1С "Печать бирок" и в ней как раз использовал поиск файлов в директории и поочерёдный перебор. Ты видимо плохо смотрел в синтакс-помощнике.

Код: Выделить всё

//********************************************
Процедура ПриОткрытии()
   Перем Наименование, НайденыйФайл,ИндикаторНачалаИмени, ИндикаторКонцаИмени;       
   Перем ФайлНеНайден, МаскаИмениФайла;
   СписокБирок.УдалитьВсе();   
   МаскаИмениФайла=Сред(ТоварНаим,1,Найти(ТоварНаим,"/")-3);
// Формируем список доступных бирок
// Установим Текущий каталог
   КаталогБирок="C:\Program Files\1Cv77\Db\Бирки";
   Фс.УстТекКаталог("C:\Program Files\1Cv77\Бирки");
// Обнулим переменные   
   Наименование="";           
   ИндикаторНачалаИмени=0;
   ИндикаторКонцаИмени=0;
   НайденыйФайл="";                           
   ФайлНеНайден=0;
// Найдём первый файл и добавим имя в список
   НайденыйФайл=ФС.НайтиПервыйФайл(МаскаИмениФайла+"*.mxl");
   Если НайденыйФайл="" тогда
      Предупреждение("Для данного товара """+ТоварНаим+"""ещё не создан файл бирок.");
                  ФайлНеНайден=1;
   КонецЕсли;
   ЧислоВхождений=0;
   ИндикаторНачалаИмени=Найти(НайденыйФайл,КаталогБирок);
   ИндикаторКонцаИмени=Найти(НайденыйФайл,".mxl");
   Наименование=Сред(НайденыйФайл,ИндикаторНачалаИмени,ИндикаторКонцаИмени-1);
   СписокБирок.ДобавитьЗначение(Наименование);
// Найдём остальные файлы и тоже добавим их в список   
       Пока ФайлНеНайден=0 цикл
         ИндикаторНачалаИмени=0;
         ИндикаторКонцаИмени=0;
         НайденыйФайл=ФС.НайтиСледующийФайл();
      // Если больше файлов в каталоге нет -- заканчиваем перебор файлов
         Если НайденыйФайл="" тогда
            ФайлНеНайден=1;
            Продолжить;
         КонецЕсли;
         ИндикаторНачалаИмени=Найти(НайденыйФайл,КаталогБирок);
         ИндикаторКонцаИмени=Найти(НайденыйФайл,".mxl");
         Наименование=Сред(НайденыйФайл,ИндикаторНачалаИмени,ИндикаторКонцаИмени-1);
         СписокБирок.ДобавитьЗначение(Наименование);
      КонецЦикла;                                                       
      // Отсортируем список
      СписокБирок.СортироватьПоПредставлению();
КонецПроцедуры

//********************************************


Нужные для тебя операторы:
Фс.УстТекКаталог - устанавливает текущий каталог (в VB Chdir)
ФС.НайтиПервыйФайл(МаскаИмениФайла+"*.mxl"); Маска может быть и в имени. (*.txt) (в VB Dir$("C:\*.txt"))
ФС.НайтиСледующийФайл() - получаем следующий в списке файл (в VB повторый Dir без параметров)

[tyomitch]

О, впервые увидел знаменитый язык 1С вживую...



А почему там ".mxl", кстати? Опечатка?

[GSerg]

Дааааа........


А комментарии в стиле C++ - тонкое издевательство над последним...

[tyomitch]

А комментарии в стиле C++ - тонкое издевательство над последним...

Ага, и точки с запятыми

[Ruslan Demidow]

О, впервые увидел знаменитый язык 1С вживую...

Хочешь ещё покажу? У меня его много...

А почему там ".mxl", кстати? Опечатка?

Да нет, просто у меня имя файла формировалось из наименования товара плюс расширение файлов-таблиц 1С и править лень было, кинул как есть. Таким образом у одного товара могло быть несколько бирок.

[Ruslan Demidow]

:shock: Дааааа........


А комментарии в стиле C++ - тонкое издевательство над последним...

А чего? Комментарии как коментарии. Или ты имел ввиду знак комментария?
Да и язык 1С языком ООП назвать трудно: там завёл переменную без объявления типа и она в течении работы процедуры может быть и объектом и просто содержать в себе какие-то данные...
Хотя в освоении прост до изнеможения.

[Ruslan Demidow]

А комментарии в стиле C++ - тонкое издевательство над последним...

Ага, и точки с запятыми

Без точки с запятой на конце - строка считается ошибочной и 1С ругается, вываливает ошибку.

[Sedge]

Ситуация усложняется тем, что в конечном итоге требуется сопряжение VBScript и обработки написанной в 1С, а в 1С функции VB (не VBscript) не обрабатываются. Более того нет конструкции For Each. :( Поэтому Dir и API, применить не получилось.

Я не понял в чем проблема? 1С прекрасно понимает внешние компоненты, в том числе и написанные на VB. Сам недавно занимался подобной задачей. Правда компонент должен быть разработан по определенным правилам, которые детально описаны в документации по этой самой 1С. В инете тоже пара ссылок есть. Google тебе поможет.

[ta_gena]

Комментарии как в C и точка с запятой, это еще не все радости программирования на 1С. Я долго мучился, пока сообразил, что тело функции долно быть описано до ее первого использования. Поэтому главная процедура стоит самой последней. А наличие всего трех типов данны (строка, дата и число) принесет Вам множество сюрпризов и удовольствия при преобразованиях.

[Ruslan Demidow]

Комментарии как в C и точка с запятой, это еще не все радости программирования на 1С. Я долго мучился, пока сообразил, что тело функции долно быть описано до ее первого использования. Поэтому главная процедура стоит самой последней. А наличие всего трех типов данны (строка, дата и число) принесет Вам множество сюрпризов и удовольствия при преобразованиях.

Не всегда главная процедура обязательно должна быть последней в модуле: есть же дополнительная возможность описать функцию или процедуру раньше. Это например
Функция ПолучитьЧислоДокументов(параметры) Далее

[GSerg]

Вот это форвардная

Даааа....