Предсортировка при For Each (vb6)

[65536]

Здравствуйте
эхотаг = vb6.0
Задача: просмотреть по таймеру каталог и выполнить
разные действия с файлами с разными именами,
причём с одними ,которые на "q-" начинается - безусловно, а с теми, что на "d-" - c окошками, вопросами и условиями для ручной работы.

проблема в том, что d стоит алфавитно перед q и при таком подходе:

For Each fName In fc
Set ff = fso.GetFile(fName)
fN = UCase(CStr(ff.Name))
Select Case UCase(CStr(Left$(fN, 2)))
Case "Q-" ->надо безусловно решать
Case "D-" ->показывать окошки для юзверя
_сразу_ идёт переход на case d ,генерится окно и останавливается ход машины.
Можно ли перед case пересортировать это дело (непонятно даже, какое дело, в fc или массив или коллекция) или может быть надо другой подход?

спасибо

[GSerg]

Опять fso...
Кому, нафиг, надо fso? Оно что, возможности дополнительные даёт? Не понимаю...

Что такое fName? fc? ff?

[Wild VB Code for Food]

Люди статей Гайдара начитались на сайте. Как лозунг - "FSO - Тяжёлая арртерелия VB" может не привлекать?

[65536]

Опять fso...
Кому, нафиг, надо fso? Оно что, возможности дополнительные даёт? Не понимаю...

я писал - васик6, через фсо удобно, про допвозможности не знаю.
а чем неправильно через фсо, может через dir рульнее?
поясните плз, если не жалко

Что такое fName? fc? ff?

ну я ведь образно писал, через getFolder смотрим каталог и для каждого члена fc - коллекции (по мсдн) перебираем чеё членов (fName). а Set ff = fso.GetFile(fName) даже не знаю, как объяснить - типа канонически написано.
проблема - повторюсь, что fname строятся по алфавиту, а надо бы их перестроить перед перебором. всего то. если можно - скажите как , если нет - скажите как надо, если есть способ без фсо - подскажите плз, буду только рад.

[GSerg]

через фсо удобно

Таскать за собой scripting runtime тоже удобно?

Что такое fName? fc? ff?

ну я ведь образно писал

А не надо образно писать.
Я имел в виду типы переменных. Или переменные не объявлены?
В угадайку играть? Допустим, что fc - это files. Тогда почему делается жестокий изврат с Set ff = fso.GetFile(fName)? Если fc - это files, то fName - это уже сразу то, что возвращает GetFile. Следовательно, fc - это не files. Да?
Типы переменных в студию.

[Antonariy]

Таскать за собой scripting runtime тоже удобно?

Окстись! fso присутствует даже в комплекте 98х. Я наоборот, всегда исключал ее из дистрибутива, потому что при ее перезаписи требовалось перезапустить комп.

[alibek]

Мне, к примеру, в FSO не нравятся глюки, которыми не можешь управлять. Я уж лучше по старинке.

[65536]

Я имел в виду типы переменных. Или переменные не объявлены?
В угадайку играть? Допустим, что fc - это files. Тогда почему делается жестокий изврат с Set ff = fso.GetFile(fName)? Если fc - это files, то fName - это уже сразу то, что возвращает GetFile. Следовательно, fc - это не files. Да?
Типы переменных в студию.

насчёт изврата тут ты прав, я переделал

On Error GoTo errZapros
Dim fName
Dim ff As File
Dim ListFileName As String
Dim strFileName As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(strInPath)
Set fc = f.Files

For Each fn In fc
Set ff = fso.GetFile(fName)
fName = LCase(CStr(ff.Name))
Select Case UCase(CStr(Left$(fName, 2)))

Case "q-"
Case "d-"
Case "!-"
но не работает


2)попутно вопрос,
как при добавлении строчки в листбокс
давать фокус на последнюю строку, типа постоянно скроллить вниз

fName = Dir(strInPath + "*.ddd", vbNormal)
While Len(fName) <> 0
frmFilez.ListIn.AddItem (fName)
fName = Dir() '
DoEvents
Wend

[Ruslan Demidow]

через фсо удобно

Таскать за собой scripting runtime тоже удобно?

Начиная с 98 SE - WSH есть во всех виндах.

[Ruslan Demidow]

Я имел в виду типы переменных. Или переменные не объявлены?
В угадайку играть? Допустим, что fc - это files. Тогда почему делается жестокий изврат с Set ff = fso.GetFile(fName)? Если fc - это files, то fName - это уже сразу то, что возвращает GetFile. Следовательно, fc - это не files. Да?
Типы переменных в студию.

насчёт изврата тут ты прав, я переделал
................

2)попутно вопрос,
как при добавлении строчки в листбокс
давать фокус на последнюю строку, типа постоянно скроллить вниз

Примерно так

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


fName = Dir(strInPath + "*.ddd", vbNormal)
While Len(fName) <> 0
    frmFilez.ListIn.AddItem (fName)
   frmFilez.ListIn.ListIndex=frmFilez.ListIn.NewIndex
  '----------------------------------------------------------
            fName = Dir() '
    DoEvents
Wend


[GSerg]

насчёт изврата тут ты прав, я переделал

Неа.
Не вижу переделки.

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

dim fso as FileSystemObject, ff as file, fc as files, arr() as string

set fso = new FileSystemObject
set fc=fso.getfolder(strInPath).files
redim arr(1 to fc.count) 'я не знаю, отразится ли изменение количества файлов в процессе перечисления на этом коде или там snapshot.
for each ff in fc
  arr(i)=ff.name
next
set fso=nothing

Сортируй arr по своим правилам.