Пихание файлов(папки) в файлы. Например *.dat

[neic]

Как загнать файлы и папки в такие файлы как *.dat ?

Желательно кусок кода запиваем и читаем!

[d3drm]

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

[Sasha_karasov]

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

А как считать в массив?

[_Мика_]

Надо делать разделители

[neic]

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

Чё-то не понял твою мысль! Ты хоть опиши в коде

[a_mayor]

Ну, как говорится, надо с чего-то начать:

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


Private Sub Command1_Click()
    Dim szDir As String
    Dim bBuffer As Byte
    Dim szFile As String
    Dim szFolder As String
    Dim lCount As Long
   
   
   
    szFile = "~kidding.dat"
    szFolder = "P:\MyDocs\icons\"
   
   
   
    szDir = Dir(szFolder, vbDirectory)
   
    Open szFolder & szFile For Binary As #1
        While szDir <> ""
            If szDir <> "" And szDir <> "." And szDir <> ".." And szDir <> szFile Then
                Open szFolder & szDir For Binary As #2
                    While Not EOF(2)
                        Get #2, , bBuffer
                       
                        Put #1, , bBuffer
                    Wend
                Close #2
            End If
           
            szDir = Dir
        Wend
    Close #1
End Sub


[SSecurity]

Надо делать разделители

Идея интересная, но вот я подумал а если файл бинарный, есть вероятность что совпадут данные в файле с твоим разделителем, и что тогда?

Может куда эффективнее использовать "заголовок файла", до начала самого бинарного массива идет инфа о названии и размере хотя бы

Как вариант можно рассмотреть 2 файла: *.дат и *.inf

[neic]

Ну, как говорится, надо с чего-то начать:

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

Private Sub Command1_Click()
    Dim szDir As String
    Dim bBuffer As Byte
    Dim szFile As String
    Dim szFolder As String
    Dim lCount As Long
   
   
   
    szFile = "~kidding.dat"
    szFolder = "P:\MyDocs\icons"
   
   
   
    szDir = Dir(szFolder, vbDirectory)
   
    Open szFolder & szFile For Binary As #1
        While szDir <> ""
            If szDir <> "" And szDir <> "." And szDir <> ".." And szDir <> szFile Then
                Open szFolder & szDir For Binary As #2
                    While Not EOF(2)
                        Get #2, , bBuffer
                       
                        Put #1, , bBuffer
                    Wend
                Close #2
            End If
           
            szDir = Dir
        Wend
    Close #1
End Sub


А про окментировать можно, а то в неткорые строчки не понимаю

[a_mayor]

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


Private Sub Command1_Click()
    Dim szDir As String
    Dim bBuffer As Byte
    Dim szFile As String
    Dim szFolder As String
    Dim lCount As Long
   
   
   
    szFile = "~kidding.dat"
    szFolder = "P:\MyDocs\icons\"     'исходная папка
   
   
   
    'открываем папку для чтения
    szDir = Dir(szFolder, vbDirectory)
   
    Open szFolder & szFile For Binary As #1 'открываем файл .дат для ввода в него   

        While szDir <> ""     'цикл чтения папки
            If szDir <> "" And szDir <> "." And szDir <> ".." And szDir <> szFile Then     'проверка, что это файл, а не папка и, что это не .дат файл
                Open szFolder & szDir For Binary As #2     'открываем файл для чтения из него
                    While Not EOF(2)     'цикл чтения файла
                        Get #2, , bBuffer     'считываем в буфер
                       
                        Put #1, , bBuffer     'из буфера в файл .дат
                    Wend
                Close #2   'читаемый файл закрываем, при этом .дат файл открыт для дальнейшего ввода
            End If
           
            'считываем след. файл из папки
            szDir = Dir
        Wend
    Close #1
End Sub


[tyomitch]

А как считать в массив?

Оператором Get

[Sasha_karasov]

А как считать в массив?

Оператором Get

Я бумал там хитра !

[tyomitch]

Я бумал там хитра !

"Научитесь говорить сначала по-русски" (с) Киркоров

[a_mayor]

Я бумал там хитра !

Хитрая, однако, фраза. Это русский++.