- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 150
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-6-30
![2023¦~¥þ¶Ô¼ú³¹ 2023¦~¥þ¶Ô¼ú³¹](images/common/2023.png) ![2022ªê¦~¥þ¶Ô¼ú³¹ 2022ªê¦~¥þ¶Ô¼ú³¹](images/common/hu.gif) ![2021¤û¦~¥þ¶Ô¼ú³¹ 2021¤û¦~¥þ¶Ô¼ú³¹](images/common/niu.gif) ![2020¹«¦~¥þ¶Ô¼ú³¹ 2020¹«¦~¥þ¶Ô¼ú³¹](images/common/shu.gif) ![2019 ½Þ¦~¥þ¶Ô¼ú³¹ 2019 ½Þ¦~¥þ¶Ô¼ú³¹](images/common/zhu.gif) ![2018 ª¯¦~¥þ¶Ô¼ú³¹ 2018 ª¯¦~¥þ¶Ô¼ú³¹](images/common/gou.gif) ![2017 Âû¦~¥þ¶Ô¼ú³¹ 2017 Âû¦~¥þ¶Ô¼ú³¹](images/common/ji.gif) ![2016µU¦~¥þ¶Ô¼ú³¹ 2016µU¦~¥þ¶Ô¼ú³¹](images/common/hou.gif) ![2015¦Ï¦~¥þ¶Ô¼ú³¹ 2015¦Ï¦~¥þ¶Ô¼ú³¹](images/common/yang.gif) ![2014°¨¦~¥þ¶Ô¼ú³¹ 2014°¨¦~¥þ¶Ô¼ú³¹](images/common/ma.gif) ![2013³D¦~¥þ¶Ô¼ú³¹ 2013³D¦~¥þ¶Ô¼ú³¹](images/common/she.gif) ![2012Às¦~¥þ¶Ô¼ú³¹ 2012Às¦~¥þ¶Ô¼ú³¹](images/common/long.gif) ![½×¾Â°^Äm¾±³¹ ½×¾Â°^Äm¾±³¹](images/common/medal5.gif) ![¼ö¤ß¤½¯q¾±³¹ ¼ö¤ß¤½¯q¾±³¹](images/common/medal15.gif) ![2011¨ß¦~¥þ¶Ô¼ú³¹ 2011¨ß¦~¥þ¶Ô¼ú³¹](images/common/tu.gif)
|
¦^´_ 1# maiko
¬°¤F¯à§PÂ_¬O§_¦³¿ï¾Ü¸ê®Æ§¨¡A³Ì¦n«ü©wInitialFileName
¦]¬°¹ï¸Ü¤è¶ô¬On¨ú±o¸ê®Æ§¨¥Ø¿ý¡A©Ò¥H·í§A¥¼¿ï¨ú¸ê®Æ§¨(¸ê®Æ§¨¦WºÙÄæ¦ì¬°ªÅ¥Õ)«ö¤U½T©w¡ASelectedItems.Count ¤´µM·|¬O1- Sub OpenPath()
- Dim fd As FileDialog, FileName As String, FileFolder As String, StartFolder$
- Set fd = Application.FileDialog(msoFileDialogFolderPicker)
- StartFolder = "C:\Windows" '¦Û¦æקï¹ï¸Ü¤è¶ôªº¹w³]¸ê®Æ§¨¥Ø¿ý
- With fd
- .AllowMultiSelect = False
- Do
- '.InitialFileName = StartFolder '¹w³]¹ï¸Ü¤è¶ô¶}±Ò¦bC:\Windows\¸ê®Æ§¨¦WºÙÅã¥ÜWindows
- .InitialFileName = StartFolder & IIf(Right(StartFolder, 1) = "\", "", "\") '¹w³]¹ï¸Ü¤è¶ô¸ê®Æ§¨¦WºÙ¬°ªÅ¥Õ
- .Show
- If .SelectedItems.Count = 1 Then FileFolder = .SelectedItems(1)
- Loop Until FileFolder <> StartFolder And .SelectedItems.Count = 1
- End With
- Set fd = Nothing
- End Sub
½Æ»s¥N½X |
|