|
Win98se & EXL97 と Win98se & EXL2000で、使っていたリンク先のコード、Win2000 & EXl97 だとエラーになってしまったんで。
Sub 昇順()
Dim i As Long
mm = CreateObject("WScript.Shell").SpecialFolders("Desktop")
With Application.FileSearch
.LookIn = CreateObject("WScript.Shell").SpecialFolders("Desktop")
'.FileName = "*.xls" 'Win2000 & EXl97 だとエラーになる??。
'無くても上記組み合わせで、エクセルファイルだけ検索しました。
.FileType = msoFileTypeExcelWorkbooks 'エクセルファイルだけ
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
Range("A1").Value = "ファイル名"
Range("B1").Value = "フルパス"
For i = 1 To .FoundFiles.Count
Range("A" & i + 1).Value = Dir(.FoundFiles(i))
Range("B" & i + 1).Value = .FoundFiles(i)
Next
Else
MsgBox "エクセルファイルはありません。"
End If
End With
End Sub
|
|