è¦ç¨å°inetæ§ä»¶ãpublic strData as string
'è¿æ®µå¯ä»¥è¿åæå¡å¨ä¸ç第ä¸çº§ç®å½åï¼ä¿åå¨strDataä¸ï¼ å¦æå¤ä¸ªæ件夹åæ¯ä¸ªæ件夹åä¼ä»¥ç©ºæ ¼åå¼ã读åæ¶å¤æ®µä¸ä¸ã
Inet1.Execute Inet1.URL, "dir """ & dirName & """"
Do
DoEvents
Loop While Inet1.StillExecuting = True
msgbox strData
'è¿æ®µæ¯è¿å
¥ç®å½ä¸ï¼è¦æ³è·å¾æå¡å¨ä¸ææçæ件夹åï¼å°±å¯ä»¥ç¨éè§çåæ³æ¥è·å¾ã
Inet1.Execute Inet1.URL, "cd """ & dirName & """"
Do
DoEvents
Loop While Inet1.StillExecuting = True
Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case 1
StatusBar1.Panels.Item(1).Text = "该æ§ä»¶æ£å¨æ¥è¯¢ææå®ç主æºç IP å°å"
Case 2
StatusBar1.Panels.Item(1).Text = "该æ§ä»¶å·²æåå°æ¾å°ææå®ç主æºç IP å°å"
Case 3
StatusBar1.Panels.Item(1).Text = "该æ§ä»¶æ£å¨ä¸ä¸»æºè¿æ¥"
Case 4
StatusBar1.Panels.Item(1).Text = "该æ§ä»¶å·²ä¸ä¸»æºè¿æ¥æå"
Case 5
StatusBar1.Panels.Item(1).Text = "该æ§ä»¶æ£å¨å主æºåé请æ±"
Case 6
StatusBar1.Panels.Item(1).Text = "该æ§ä»¶åé请é
£æµ·ä¸°å¿è¶æµå¥æ±æ§ææ±å·²æå"
Case 7
StatusBar1.Panels.Item(1).Text = "该æ§ä»¶æ£å¨æ¥æ¶ä¸»æºçååº"
Case 8
StatusBar1.Panels.Item(1).Text = "该æ§ä»¶å·²æåå°æ¥æ¶å°ä¸»æºçååº"
追é®æåªè¦è·å¾æ件大å°ç代ç å³å¯ãå
¶ä»ä¸è¦ã