¥»ª©È±oÃöª`ªº¥DÃD±N³°Äò¼W¥[
- ©«¤l
- 214
- ¥DÃD
- 74
- ºëµØ
- 0
- ¿n¤À
- 296
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- hk
- µù¥U®É¶¡
- 2013-6-17
- ³Ì«áµn¿ý
- 2018-11-3
|
¦^´_ 1# Hsieh
09.ÀÉ®×¾Þ§@½d¨Ò (Dir / Filesystem Object),¤Q¤À¨ü¥Î,25000Ófile´N3¬í´N§¹¦¨,«Ü·Q¨Ï¥Î,§ï¤F¦h®É,,¹ï»¼Âk¤£¤ÓÁA¸Ñ,¤£±on»â,©Ò¥H¨D§AÀ°§U,¬Ý¯à¤£¯àÀ°§Ú§ï§ï:
1. foldernÅýuser¿ï¾Ü,§Ú¼g¤FÓfunction,¦p¤U,°ò¥»¥i¥H¨Ï¥Î
Function GetFolderName() As String
Dim fds As Object
Set fds = CreateObject("Scripting.FileSystemObject")
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "½Ð¿ï¾Ü¸ê®Æ§¨"
.AllowMultiSelect = False
.Show
GetFolderName = .SelectedItems(1) & "\"
End With
End Function
2. §Ú»Ýn±o¨ìuser¿ï¾Üªº¸ê®Æ§¨¨½©Ò¦³¤å¥ó(¥]¬A¤l¸ê®Æ§¨¨½)²M³æ,¥Î¼Æ¦C¶Ç¦^Arr(1 to n),¨CÓ¤å¥ó¥]¬A¸ô®|©M¤å¥ó¦W
3. vb¨½¥i¥H¼g´X¥y¥Î¸ê®Æ§¨¦W©M¤å¥ó¦W¨Ó¿z¿ï©Ò»Ýnªº¸ê®Æ§¨©M©Ò»Ýnªº¤å¥ó.
¦Û¤v¹ê¦b§ï¤£¦n,½Ð¨DÀ°¤â,ÁÂÁ§A |
|
lmh
|
|
|
|
|