如题所述
VBå¯ä½¿ç¨DriveListBox æ§ä»¶ï¼DirListBox æ§ä»¶åFileListBox æ§ä»¶ç»å使ç¨è·åæ件夹éçæ件æ°éï¼å æ¬æ件夹ï¼ã
DriveListBox æ§ä»¶
å¨è¿è¡æ¶ï¼ç±äºæ
DriveListBox
æ§ä»¶ï¼æ以å¯éæ©ä¸ä¸ªææçç£ç驱å¨å¨ã该æ§ä»¶ç¨æ¥æ¾ç¤ºç¨æ·ç³»ç»ä¸ææææç£ç驱å¨å¨çå表ãå¯ä»¥å建对è¯æ¡ï¼éè¿å®ä»ä»»ä¸å¯ç¨é©±å¨å¨çç£çæ件å表ä¸æå¼æ件ã
DirListBox æ§ä»¶
å¨è¿è¡æ¶ï¼DirListBox
æ§ä»¶æ¾ç¤ºç®å½åè·¯å¾ãè¿ä¸ªæ§ä»¶å¯ä»¥æ¾ç¤ºåå±çç®å½å表ãä¾å¦ï¼å¯ä»¥å建对è¯æ¡ï¼å¨ææå¯ç¨ç®å½ä¸ï¼ä»æ件å表æå¼ä¸ä¸ªæ件ã
FileListBox æ§ä»¶
å¨è¿è¡æ¶ï¼å¨ Path
å±æ§æå®çç®å½ä¸ï¼FileListBox
æ§ä»¶å°æ件å®ä½å¹¶å举åºæ¥ã该æ§ä»¶ç¨æ¥æ¾ç¤ºæéæ©æ件类åçæ件å表ãä¾å¦ï¼å¯ä»¥å¨åºç¨ç¨åºä¸å建对è¯æ¡ï¼éè¿å®éæ©ä¸ä¸ªæ件æè
ä¸ç»æ件ã
ListCount å±æ§
è¿åæ§ä»¶çå表é¨å项ç®ç个æ°ã
以ä¸æ¯å ·ä½ä»£ç ï¼
Private Sub Drive1_Change()Dir1.Path = Drive1.Drive '设置ç®å½è·¯å¾ã
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path '设置æ件路å¾ã
Text1 = File1.ListCount
Text2 = Dir1.ListCount
Text3 = Val(Text1) + Val(Text2)
End Sub
Private Sub Form_Load()
Dir1.Path = Drive1.Drive '设置ç®å½è·¯å¾ã
File1.Path = Dir1.Path '设置æ件路å¾ã
End Sub
å¾çæ¯è·åCçä¸Program Filesç®å½å¤¹ä¸çæ件æ°åæ件夹æ°
语法:dir(路径,[类型])
看MSDN吧,帮助文件写地很详细追问
请问路径可用相对路径吗?
追答什么意思?
App.Path也是可以用的
比如 dir(App.Path & "\Source\" , VBDirectory) 可以查询是否有Source这个文件夹
dir(App.Path & "\Source\*.*) 可以返回 Source这个文件夹下的所有文件的文件名,调用一次返回一个,如果没有了,就返回空字符串。不过后面再调用就直接用dir(),括号里面什么也不用写
总之,你可以看MSDN
如果没有VB6.0的MSDN文件,你可以下载一个,也就13M多
那怎么写,大虾?
追答留下QQ我传给你代码,小虫
追问957455952
API函数有很多个,是哪个啊?