Задачка!

[Boris_BGB]

В папке есть 20 изображений формата JPEG и GIF. Распихать JPEG'и в папку1, а GIF'ы в папку2. Сколько JPEG'ов в папке1 и сколько GIF'ов в папке2?

[Cyrax]

ну можно например так

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

Sub SortFile(Folder As String)
    Dim sFile as String
    sFile = Dir(Folder & "\", vbFiles) ' если я ну попутал с флагом
    Do Until Len(sFile)=0
        If sFile <> "." And sFile <> ".." Then ' проверяем на корневой и родительский каталоги
            Select Case LCase$(Right$(sFile, 3))
            Case "gif"
                FileCopy Folder & "\" & sFile, Folder & "\Gif\" & sFile
            Case "jpg"
                FileCopy Folder & "\" & sFile, Folder & "\Jpeg\" & sFile
            End Select
        End If
    Loop
End Sub

ну а посчитать, эт тебе дом. задание. я думаю и так понятно, что нужно сделать.

[Boris_BGB]

И всё-же я с FSO не сталкивался... Мона поподробнее?

[Cyrax]

И всё-же я с FSO не сталкивался... Мона поподробнее?

а тут никакого FSO и нет. стандарные функции VB для работы с файлами.

описание можно почитать в хелпе (у меня есть русский хелп).

а алгоритм простой.

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

Sub SortFile(Folder As String) ' Folder - путь к папке с картинками
    Dim sFile as String ' сюда будем собирать файлы по одному
    sFile = Dir(Folder & "", vbFiles) ' сдесь мы как-бы инициализируем функцию Dir. потом ее можно вызывать без параметров
    Do Until Len(sFile)=0 ' цикл, пока Dir не вернет пустую строку (значит файлы кончились)
        If sFile <> "." And sFile <> ".." Then ' проверяем на корневой и родительский каталоги, они нам не нужны
            Select Case LCase$(Right$(sFile, 3)) ' проверяем расширение
            Case "gif" ' копируем gif'ы в подпапку Gif папки Folder
                FileCopy Folder & "" & sFile, Folder & "\Gif" & sFile
            Case "jpg" ' а сдесь соответственно Jpeg'и
                FileCopy Folder & "" & sFile, Folder & "\Jpeg" & sFile
            End Select
        End If
        sFile = Dir ' извини, забыл про эту строчку. теперь просто вызываем Dir без параметров.
    Loop
End Sub

к стати, работает это все довольно шустро, и не надо таскать за собой мегабайтную библу с FSO.

[gjghjc]

Хелп по FSO или VB?
Если все-таки по VB то можно его как нибудь намылить вот по этом адресу gjghjc@yandex.ru или хотя бы указать источник где взял???

[Rainbow]

А http://msdn.microsoft.com/library/ тебе не подойдет?

[Cyrax]

я лучше сдесь положу

попытка № 1xx