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

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

img

   我现在要在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文件夹的图标显示成我的自定义图标，希望能好用。

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

给个参考思路：
把"CYS.KT"换成"CYS.KT.."这样畸形文件夹的名字，这样双击就打不开。
而访问时路径前加上\?\就可以了。至于修改文件夹图标，在文件夹目录里新建desktop.ini，代码大致是：

[.ShellClassInfo]
IconResource=ico图片路径,0

然后将文件夹属性改成r，如attrib +r \?\文件夹路径。
其余可以参考c:\windows\fonts等文件夹。

使用SetAttr函数将文件夹CYS.KT设置成隐藏文件，别的用户就看不到了。参数：vbHidden 2 隐藏

看来将文件夹模拟成带后缀名的文件没有什么途径，那只好采纳将文件组成大文件的方法了。酬金给了第一个回答的，不过也感谢另两位的回答。