用VB编制Windows 95下迅速跳转目录程序 徐林清 1997-01-01 　　ＤＯＳ下的目录工具ＡＣＤ可以非常方便、迅速地进入任一级子目录，而在Ｗｉｎｄｏｗｓ下跳转目录则稍显麻烦。以下用Ｖｉｓｕａｌ　ＢＡＳＩＣ（ＶＢ４）编写了一个程序，经编译后生成可执行文件，为之建一快捷方式，并拖到桌面上，就可以像ＤＯＳ下的ＡＣＤ一样，方便地进出任一子目录。步骤如下： 　　①在ＤＯＳ下用ＤＩＲ命令生成一个数据文件（例如ＸＣＤＤＡＴ，注意参数必不可少）。 　　ＤＩＲ　／ＡＤ／Ｂ／Ｓ　Ｃ：＼　＞Ｃ：＼ＸＣＤ．ＤＡＴ 　　ＤＩＲ　／ＡＤ／Ｂ／Ｓ　Ｃ：＼　＞＞Ｃ：＼ＸＣＤ．ＤＡＴ 　　②进入ＶＢ４，在窗体上建一列表框（ＬＩＳＴＢＯＸ），根据需要调整窗体和列表框的大小，其它属性取默认值。 　　③编写过程代码。鼠标代码可参照ＫＥＹＰＲＥＳＳ代码编写。 　　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｆｏｒｍ－Ａｃｔｉｖａｔｅ（） 　　Ｄ＄＝ＵＣａｓｅ＄（ＩｎｐｕｔＢｏｘ＄（＂Ｄｉｒｅｃｔｏｒｙ　Ｎａｍｅ．＂，＂Ｃｈａｎｇｅ　Ｄｉｒ＂，＂＂）） 　　Ｏｐｅｎ　＂Ｃ：＼ＸＣＤ．ＤＡＴ＂　Ｆｏｒ　Ｉｎｐｕｔ　Ａｓ　＃１ 　　Ｄｏ　Ｗｈｉｌｅ　Ｎｏｔ　ＥＯＦ（１） 　　Ｉｎｐｕｔ　＃１，ａ＄ 　　Ｉｆ　Ｒｉｇｈｔ＄（ａ＄，Ｌｅｎ（Ｄ＄）＋１）＝＂＼＂＋Ｄ＄　Ｔｈｅｎ 　　Ｌｉｓｔ１．ＡｄｄＩｔｅｍ　ａ＄，ａｄ 　　ａｄ＝ａｄ＋１ 　　Ｅｎｄ　Ｉｆ 　　Ｌｏｏｐ 　　Ｉｆ　Ｌｉｓｔ１．ＬｉｓｔＣｏｕｎｔ＝０　Ｔｈｅｎ　Ｅｎｄ 　　Ｉｆ　Ｌｉｓｔ１．ＬｉｓｔＣｏｕｎｔ＝１　Ｔｈｅｎ 　　Ｙ＝Ｓｈｅｌｌ（＂Ｃ：＼ＰＷＩＮ９５＼ＥＸＰＬＯＲＥＲＥＸＥ　／ｎ，／ｅ，＂＆Ｌｉｓｔ１．Ｌｉｓｔ（０），１） 　　Ｅｎｄ 　　ｅｎｄ　ｉｆ 　　Ｅｎｄ　Ｓｕｂ 　　Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｌｉｓｔ１－ＫｅｙＰｒｅｓｓ（ＫｅｙＡｓｃｉｉ　Ａｓ　Ｉｎｔｅｇｅｒ） 　　Ｉｆ　ＫｅｙＡｓｃｉｉ＝１３　Ｔｈｅｎ 　　Ｙ＝Ｓｈｅｌｌ（＂Ｃ：＼ＰＷＩＮ９５＼ＥＸＰＬＯＲＥＲ．ＥＸＥ　／ｎ，／ｅ，＂＆Ｌｉｓｔ１．Ｌｉｓｔ（Ｌｉｓｔ１．ＬｉｓｔＩｎｄｅｘ），１） 　　ｅｎｄ　ｉｆ 　　Ｉｆ　ＫｅｙＡｓｃｉｉ＝２７　Ｔｈｅｎ　Ｅｎｄ 　　Ｅｎｄ 　　Ｅｎｄ　Ｓｕｂ 　　④编译生成可执行文件。双击文件名，输入欲进入的目录名，回车即可。遇到重名时会弹出列表框，由用户选择。