[µo°Ý]office 2010 word ½d¥»¤£¯à¨Ï¥ÎApplication.FileSearch

awlk

½Ð­Ó¦ì¤j¤j,³o­ì¥»¬O¦boffice 2003 ¼gªº¥¨¶°,¥Ø«e¦]§ï¦¨office 2010,©Ò¥H¤£¯à¶]¤F,¤£ª¾¹D¦³¨º¦ì¦n¤ßªº°ª¤â¯àÀ°À°¤p§Ì­×§ï¤@¤U,·P®¦~~~~~~


Private Sub CommandButtonOK_Click()

Dim PicturePath$
Dim Msg, Style, Title, CR

CR = Chr$(13)
PicturePath$ = ChoosePathForm.TextBox1.Value
   
    With Application.FileSearch
        .NewSearch
        .LookIn = PicturePath$
        .SearchSubFolders = False
        .FileName = "*.jpg"
        .MatchTextExactly = True
        .FileType = msoFileTypeAllFiles

        If .Execute() > 0 Then
            Call Load_the_Pictures(PicturePath$)
        Else
            Msg = "There are no pictures in this directory:" _
                   + CR + CR + PicturePath$ + CR + CR + _
                   "Please check the path again."
            Style = vbOKOnly + vbQuestion
            Title = "No files found"
            MsgBox Msg, Style, Title
        End If
    End With
End Sub