用VB编制Windows 95下迅速跳转目录程序

Author: 徐林清 Date: 1997-01-01

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