|
もう帰るので、ファイル検索だけ。
しかも、2003までにしか使えないFileSearchです。
これで、一旦全ての振るパスファイル名を取得してから、
nmaeプロパティだっけかで、移動してやればいいです。
ファイルの移動は、目安箱に書いてあります。(たぶん書いたような)
Sub 検索LOOKIN改()
ファイル名 = "*.xls"
FldNm = CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "\作業フォルダ"
With Application.FileSearch
.LookIn = FldNm
.SearchSubFolders = True
.Filename = ファイル名
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
Cells(i, 1) = .FoundFiles(i)
Next i
Else
MsgBox ファイル名 & "ファイルはありません。"
End If
End With
End
End Sub
|
|