Доброго времени суток! Наткнулся на такую проблему. Есть программа. Есть файлы разных ворматов (картинки, текты и БД акцесс). Создаю файл ресурсов и запихиваю туда всё нужное (базу, картинки, DLL-ки ) Застопорился на том, как потом ИЗВЛЕЧЬ всё это добро на диск? Один файл извлечь не проблема, а как сделать, чтоб все нужные файлы извлеклись в нужные мне места. Заранее благодарю за помощь!

Ой, пока писал, успел практически разобраться с этим вопросом, если кому интересно, то я сделал это так

Private Sub Command1_Click()
Dim arrData() As Byte
arrData = LoadResData(101, "CUSTOM")
Open App.Path & "\file1.dll" For Binary Access Write As #1
Put #1, , arrData
arrData = LoadResData(102, "CUSTOM")
Close #1
Open App.Path & "\file2.exe" For Binary Access Write As #1
Put #1, , arrData
Close #1
End Sub

Но попутно возник другой вопрос:
Вот в строке Open App.Path & "\file1.dll" For Binary Access Write As #1 имя файла (file1.dll) прописываю вручную, а можно ли организовать код так, чтоб имя файла бралось непостредственно из самого ресурса, в смысле вот в ресурсе файл с идентификатором 101 имеет имя file1.dll, это легко запомнить, когда файлов несколько, а когда их куча можно запутаться. Собственно вопрос: можно ли извлекать файлы таким образом, чтоб создаваемые файлы автоматически были названы теми же именами, под которыми они храняться в ресурсах? Чтоб не указывать строго в коде их имена?