userl 2022-08-21 05:21 采纳率: 100%
浏览 50
已结题

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

   我这里有个文件夹:D:\图片查看\CYS.KT
   里边有两个图片文件:222.jpg333.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文件夹的图标显示成我的自定义图标,希望能好用。
  • 写回答

4条回答 默认 最新

  • 优质网络系统领域创作者 网络领域新星创作者 2022-08-21 07:28
    关注

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

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(3条)

报告相同问题?

问题事件

  • 系统已结题 9月4日
  • 已采纳回答 8月27日
  • 创建了问题 8月21日

悬赏问题

  • ¥15 基于单片机AT89C51下的交通信号灯设计
  • ¥15 数电设计题 没有设计思路 不知道用什么芯片进行设计 求提供设计思路
  • ¥15 在动态多目标优化问题中,第一幅图展示的是问题DF6的相关定义和绘制的POS和POF图,请问图中公式PS(t)和PF(t)是如何推导的
  • ¥60 设计一种优化算法结合案例给出智能仓储四向穿梭车的调度计划
  • ¥15 Errno2:No such file or directory,在当前文件确实没有该图片,怎么解决?
  • ¥15 博世摄像头数据存储的问题(iscsi)
  • ¥15 如何实现对学生籍贯信息管理系统的选择排序
  • ¥15 写一个51单片机的时钟代码
  • ¥15 git clone报错
  • ¥15 3d-slicer超声造影动态图像导入报错