论文部分内容阅读
(5)征驱动器列表事什中输入如下代码:Private Sub DriveList Change()On ElTor Qfro Erm以heckDi山s【.Path=DriveList.DriveExit SubErrorCheck:MsgBox”您选择的驱动器无法使用!”I)ivt~List.Drive=ne:”Resllfne NextEnd SUb(6)在文件列表事件中输入如下代码:Private SUb W
(5) Enter the following code in the list of drivers: Private Sub DriveList Change () On ElTor Qfro Erm to heckDistrict s [.Path = DriveList.DriveExit SubErrorCheck: MsgBox “The drive of your choice can not be used!”) Iv) List.Drive = ne: "Resllfne NextEnd SUb (6) Enter the following code in the file list event: Private SUb W