Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VB±éÀúµ±Ç°Ä¿Â¼

Option Explicit
Dim FSO As New FileSystemObject
Dim currentFolder As Folder
Dim currentFolderName As String
Dim folderItem, fileItem
Private Sub Form_Load()

currentFolderName = FSO.GetFolder(App.Path) & "\content"
SeachFolder (FSO.GetFolder(currentFolderName))

End Sub
Function SeachFolder(str As String)
Dim itemFolder
Dim curFolder As Folder
Set curFolder = FSO.GetFolder(str)

Dim itemFile
For Each itemFolder In curFolder.SubFolders
SeachFolder (CStr(itemFolder))
Me.Text1.Text = Me.Text1.Text & itemFolder & Chr(13) & Chr(10)
For Each itemFile In itemFolder.Files
Me.Text1.Text = Me.Text1.Text & itemFile & Chr(13) & Chr(10)
Next
Next

End Function
×¢£º ÒªÓÃFSO£¬ÐèÒªÒýÓÃMicrosoft Scripting Runtime£¬´°ÌåÉÏÒª·ÅÒ»¸ötext¿Ø¼þ£¬ÓÃÀ´ÏÔʾ¡£


Ïà¹ØÎĵµ£º

oracle¿Í»§¶ËÅäÖÃÓëʹÓã¨vb£©

   ʹÓÃoracleÊý¾Ý¿âÓÐÁ½ÖÖ·½·¨£º                   
1¡¢ÔÚ¿Í»§¶Ë»úÆ÷Éϰ²×°oracleµÄ¿Í»§¶ËÈí¼þ¡£Î¨Ò»µÄÀýÍâ¾ÍÊÇjavaÁ¬½ÓÊý¾Ý¿âµÄʱºò£¬¿ÉÒÔÓÃjdbc thinģʽ£¬²»ÓÃ×°oracleµÄ¿Í»§¶ËÈí¼þ¡£
2¡¢Èç¹ûÄãÔÚ»úÆ÷É ......

vb ´òÓ¡

 Private Sub PrintTxt(txt As String, ConWidth As Long, LeftPosition As Long)
    Dim str As String
    Dim str1 As String
    Dim len1 As Long
   
    str = txt
    len1 = ConWidth
  &nbs ......

VB OpenGL»æÍ¼

ÒªÏëÔÚVB6.0ÖÐʹÓÃOpenGL»æÍ¼£¬±ØÐëÏÈÏÂÔØÒ»¸öSDK,Ãû×Ö½Ðvbogl.tlb¡£ÎÒÓõİ汾ÊÇ2.1£¬Õâ¸öÔÂÒª³ö3.0°æ±¾µÄÁË¡£
ÏÂÔØ¸ÃÎļþºó£¬Ö±½ÓÔÚVB6.0“¹¤³Ì”-“ÒýÓÔÀïÃæÒýÓÃ
1¡¢ÔÚformÖмÓÈëÒ»¸öPictureBox¿Ø¼þ
2¡¢ÒªÔÚWindowsÀïÃæÊ¹ÓÃOpenGL£¬±ØÐëÏȽøÐÐÏñËØ¸ñʽÉèÖ㬺¯Êý´úÂëÈçÏÂ
Dim hRC   ......

ÔÚVB6ÖÐÓÃCopyMemory¿½±´×Ö·û´®µÄÖÖÖÖèÄ壨һ£©

±¾ÎÄÀ´×Ô´ËÌûµÄÈß³¤ÌÖÂÛ£¬¸ÐлTiger_ZhaoµÄÈ«³ÌÖ¸µãºÍ³Â»Ô¡¢°¢Ó¡¢ÂíÔÆ½£µÈºÜ¶àÅóÓѵÄÈÈÐIJÎÓë¡£±¾ÎÄÆäËû²¿·ÖÔÚ£º£¨¶þ£©¡¢£¨Èý£©¡¢£¨ËÄ£©¡£
 
»°ËµVB6ÊǸöºÜÈÏÕæÏ¸ÖµÄÂèÂ裬Ëü»áÇÄûÉùµØ°ïÄã×öºÜ¶àÊ¡£½ñÌìÎÒÃÇÀ´ËµµÄÊÇVB6ÔÚAPIµ÷ÓÃʱ×Ô¶¯¶Ô×Ö·û´®²ÎÊý½øÐÐת»»µÄ“ºÃÈ˺ÃÊ”¡£ 
µÚÒ»½Ú ÌåÌùµÄVBÂè ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ