VB6.0怎么能把一个文件夹模拟成文件？

Question

   我这里有个文件夹：D:\图片查看\CYS.KT
   里边有两个图片文件：222.jpg，333.jpg。
   

   我现在要在VB6.0程序中引用文件夹...\CYS.KT里的文件，同时，我想让CYS.KT文件夹扮演一个文件的角色，就是别的用户双击文件夹打不开文件夹，但是我能用程序得到文件夹里的图片，并把它们显示在程序里。
    引用代码：
   Private Sub Command1_Click()
        Picture1.Picture = LoadPicture("D:\图片查看\CYSKT\" & "222.jpg")
        Picture2.Picture = LoadPicture("D:\图片查看\CYSKT\" & "333.jpg")
   End Sub
   这个将文件夹模拟为文件能用VB6.0代码实现吗？
   如果可以，给我加个怎样用代码将这个CYS.KT文件夹的图标显示成我的自定义图标，希望能好用。

Answer 1

以二进制的方式一个个的打开,写入一个新的文件,依次写入文件尾端,最后写入依次写入文件的位置(文件的长度)
还可以用UNRAR.exe命令方式压缩和解压
将unrar.exe加入资源文件,先释放unrar.exe到临时目录,再用命令解压目标文件