编程思路:按一定格式在文件夹中建立Desktop.ini文件并将文件夹的属性设置为系统属性即可自定义文件夹的图标。文件的建立不难,关键是更改文件夹属性,得用上VB的内部函数Attributes来实现。
Desktop.ini文件格式:
[.ShellClassInfo]
IconIndex=0
iconfile=Icon图标所在的驱动器我 路径名 文件名
下面是完整的程序代码。使用前请给工程添加一个按钮、一个公共对话框、一个DriveListBox和一个DirListBox。
OptionExplicit
DimsPathAsString'文件夹变量
PrivateSubDir1_Click()
DimiAsInteger
Command1.Enabled=True
i=Dir1.ListIndex
sPath=Dir1.List(i)
EndSub
PrivateSubDrive1_Change()
Dir1.Path=Drive1.Drive
...[ 查看全文 ]