[HKEY_CLASSES_ROOT\.mid]
@="my.mid" ‘把这个默认值先修改为my.mid 这个为你个人类型,由你凯谈自己定
然后再定义my.mid的类型
[HKEY_CLASSES_ROOT\my.mid] '这个是你自己定义的类型解释了
@="MIDI 音乐文件"
[HKEY_CLASSES_ROOT\my.mid\shell]
@="open"‘打开方式
[HKEY_CLASSES_ROOT\my.mid\shell\open]
@=""’打开的方法
[HKEY_CLASSES_ROOT\my.mid\shell\open\command]‘漏山命令行
@="\"C:\\Program Files\\MYMID\\MY.exe\" \"%1\""'这里的%1是要打开的MID文件,前面是MY.EXE所在的全路径
'设置图标:
[HKEY_CLASSES_ROOT\Audio.mid\DefaultIcon]
@="\"C:\\Program Files\\MYmid\\my.exe\",1"
'当然也可以指定ICO图标
@="C:\\Program Files\\MYmid\\my.ico"
你的程序里,把关联的注册表添加上去,就能和.MID文件相关联了,当然,VB *** 作注册表百度一下都是,这里返孙中就不说了。
vb 复制文件这样用就可以了 FileCopy "c:\a.txt","唯皮d:\b.txt"
//*a.text要复制的文件,b.txt为运旅复制地点的文件名*//
重命名:
Dim OldName, NewName
OldName = "a.txt": NewName = "a.txt" ' 定义文件名。
Name OldName As NewName ' 更改文件名。指悄差
OldName = "C:\a.txt": NewName = "d:\b.txt"
Name OldName As NewName
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)