ÔÚVBÖÐʹÓÃSHELLÃüÁî¼Óѹʱ.ÎÒµ÷ÓõÄÊÇ7.zipÕâ¸öÈí¼þ,µ«ÊÇÈç¹ûҪѹËõµÄÎļþÃûÖмäûÓпոñÄÇôÎļþ¿ÉÒÔÕý³£Ñ¹Ëõ,µ«ÊÇÈç¹ûÎļþÃûÖмäÓпոñµÄ»°ºÃÏñËü¾Í²»ÄÜÕý³£Ñ¹ËõÁË,ºÃÏñÊÇÒòΪËüÖ»ÈϿոñǰµÄÃû×Ö,¿Õ¸ñºóµÄ²»ËãÁË.ÈçÏÂÃæ
¸øÒ»¸ö½Ð:н¨Îļþ¼Ð µÄÎļþ¼Ð´ò°ü,ÄÇôûÎÊÌâ,
µ«ÊÇÈç¹ûÕâ¸öÃû×Ö¸ÄΪ:н¨ Îļþ¼Ð ÄÇô¾Í»á³ö´í.ÒòΪËûÀÏÊÇ»áÈÏΪҪ´ò°üµÄÎļþ½Ð×ö:н¨ ÁË,¿Õ¸ñºóÃæµÄÈ«²»ÈÏÁË
ÎÒ¾ÍËãÊǰÑÕâ¸öÃû×ָijÉ:"н¨" &" " & "Îļþ¼Ð" ¶¼»¹ÊDz»Ðа¡.Ò»°ã¸÷λ´óÏÅÓöµ½ÕâÖÖÇé¿öÊÇÕ§´¦ÀíµÄÂï,²»Òª½ÐÎҰѿոñÈ¥Á˹þ...Âé·³ÁË.ÖªµÀµÄ˵һÉù.ÏÈлһ¸ö¶à
±ÈÈç˵ÎÒÒª°Ñd:\н¨ Îļþ¼Ð
ÀïÃæµÄËùÓÐÄÚÈÝ´ò°üѹËõµ½d:\1\н¨ Îļþ¼Ð
ÏÂÃæÈ¥
Shell zip»òwinrar ¶¼Ò»ÑùÊÇÔÚDOSÏÂÔËÐÐµÄ DosÊÇ8.3¸ñʽ
±ØÐ轫ÎļþÃû³Æ¸ÄΪ¶Ì·¾¶ÎļþÃû
Õâ¶Î´úÂëÄãÊÔ¿´°É
Option Explicit
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Dim AppDisk$
Private Sub Form_Load()
'****±¾µØÂ·¾¶(Ïà¶Ô·¾¶)
AppDisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
'****ת»»Îª¶Ì·¾¶Ãû³Æ
MsgBox "±¾µØÂ·¾¶: " & GetShortName(AppDisk)
End Sub
Public Function GetShortName(ByVal sLongFileName As String) As String
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
°ÑÒÑÓÐÊý¾Ý£¨Êý¾Ý´óÓÚ20ÐУ©µÄRS(recordset)µÄµÚ10ÐÐÊý¾ÝÓëµÚ11ÐÐÊý¾Ý×ö¼Ó·¨ºó£¬É¾³ýµÚ11ÐеÄÊý¾Ý£¬È»ºó°ÑºóÃæµÄÊý¾ÝÏòÇ°ÒÆ¡£
RSµÄ»°ÐÞ¸ÄÊý¾ÝÊÇ»á¸üÐÂÊý¾Ý¿â£¬ÏÖÔÚµÄÎÊÌâÊÇRSÀïµÄÒÑÓÐÊý¾ÝÊÇÓÃSQLÓï¾ä·ÖÀàͳ¼Æ³öÀ´µÄ ......