¦hÓexcel sheet¤u§@ªí¦p¦ó§Ö³tÂন¦UÓ¿W¥ßªºexcelÀÉ®×
- ©«¤l
- 41
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 83
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-20
- ³Ì«áµn¿ý
- 2019-12-17
|
¦^´_ 4# HUNGCHILIN - Sub BrowDir()
- On Error GoTo error1
- Dim bi As BROWSEINFO
- Dim pidl&, rtn&, path$, pos%
- pidl& = SHBrowseForFolder(bi)
- path$ = Space$(512)
- rtn& = SHGetPathFromIDList(ByVal pidl&, ByVal path$)
- ...
- error1: End Sub
½Æ»s¥N½X ¥H¤Wµ{¦¡ºI¦ÜHUNGCHILIN¤jªºªþÀÉ¡A
½Ð°Ý¦U¦ì«e½ú¡ADim pidl&, rtn&, path$, pos%¬O¦b«Å§iÅܼƫ¬ºA¡A&=Long¡B$=String¡A
¹³Dim pidl&=Dim pidl as Long¡AÅܼƬOpidl¡A¦ý¬°¤°»ò¤U±µ{¦¡¦b¨Ï¥Î®É¡A¬O¥Îpidl& = SHBrowseForFolder(bi)¦Ó¤£¬Opidl = SHBrowseForFolder(bi)?
¨âºØ¼gªk¨Ï¥Î¤W·|¦³®t§O¶Ü? ÁÂÁ¡C |
-
1
µû¤À¤H¼Æ
-
-
HUNGCHILIN:
¦b¨Ï¥Î¤W§Úªº·Pı¡AÀ³¸Ó¬O¨S¦³®t§O¡A¤£¹L«á ...ª÷¿ú + 5
|
|
|
|
|
|
- ©«¤l
- 41
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 83
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-12-20
- ³Ì«áµn¿ý
- 2019-12-17
|
¦^´_ 7# HUNGCHILIN
ÁÂÁÂHUNGCHILIN¤j¡Aªº½Tpidl&»Ppidl¨âÓÅܼƳ£·|³Q©w¸q¦¨Long¡A¬Ý¨Ó¥u¬O²ßºD°ÝÃD¡C |
|
|
|
|
|
|