|
▼ON さん:
ごめんなさい。まだ、テストが足りなかった。。。
>Private Sub FindFile(Pathname$, strFind$, myList$(), _
> fCount&, Optional SearchChild As Boolean = True)
内の
> If hFile = INVALID_HANDLE_VALUE Then Exit Sub
> Do
> f = fDATA.cFileName
> f = Left$(f, InStr(f, vbNullChar) - 1)
> If (fDATA.dwFileAttributes And vbDirectory) = 0 Then
> fCount = fCount + 1
> ReDim Preserve myList(1 To fCount)
> myList(fCount) = Pathname & f
> End If
> Loop While FindNextFile(hFile, fDATA)
> FindClose hFile
ここを、
If hFile <> INVALID_HANDLE_VALUE Then
Do
f = fDATA.cFileName
f = Left$(f, InStr(f, vbNullChar) - 1)
If (fDATA.dwFileAttributes And vbDirectory) = 0 Then
fCount = fCount + 1
ReDim Preserve myList(1 To fCount)
myList(fCount) = Pathname & f
End If
Loop While FindNextFile(hFile, fDATA)
FindClose hFile
End If
としないと、トップフォルダ内に 指定のファイルがないと、
サブフォルダを検索しませんでした。。
なんどもすみません m(__)m
|
|