Hsieh

¦^´_ 1# luke

1. Sub ex()
   
2. Set fdo = CreateObject("Scripting.FileSystemObject")
   
3. fd = "C:\Documents and Settings\User\®à­±\"  '®à­±¸ô®|
   
4. Set a = Columns("A").Find([B1], lookat:=xlWhole)
   
5. If Not a Is Nothing Then
   
6. fs = fd & Join(Application.Transpose(Application.Transpose(a.Offset(, 1).Resize(, 3))), "-") & "-" & Format(Date, "yyyymmdd") & "\"
   
7. If fdo.folderexists(fs) = False Then MkDir fs
   
8. End If
   
9. End Sub

½Æ»s¥N½X