У меня есть такая проблема-при поиске файлов использую два filesystemobject и в момент использования второго первый почему-то присваивает все значения второго.



....Или помогите решить следующую задачу- ведём поиск в подкаталогах по файлам test_(short_date).mdb и бёрём только тот,в котором short_date наибольший.

Заранее спасибо

RFT MPoilв момент использования второго первый почему-то присваивает все значения второго.


Попробуй объявлять переменные как Private либо с разными именами.
dim fs
dim fs2
set fs=application.filesearch
set fs2=application.filesearch

Первый сразу начинает присваивать после fs2.execute()

private Не помогло

RFTА тебя не смущает одинаковое application.filesearch?
а как надо-просвяти

?Set fs2 = New Application.FileSearch -ошибка при компиляции.
Как привильно dim fs2? private fs2? какой тип у fs2?


2.Может просто кто-то знает как ещё можно решить мою задачу: Допустим есть два каталога:
dir1 и dir2 с файлами :
dir1\temp_01.01.00.mdb
dir1\temp_01.12.04.mdb
dir1\temp_02.12.04.mdb
dir2\temp_01.01.02.mdb
dir2\temp_01.12.04.mdb
dir2\temp_02.12.05.mdb/
Вообщем надо выбрать только файлы :
1.dir2\temp_02.12.05.mdb
2.dir1\temp_02.12.04.mdb

> 0 Then
Dim str_date As Date
For cnt = 1 To fs2.foundfiles.Count
Dim str_date2 As Date
str_date2 = str_date
str_date = Format(Mid(fs2.foundfiles(cnt), 48, InStrRev(fs2.foundfiles(cnt), ".") - InStrRev(fs2.foundfiles(cnt), "-") - 1), "dd.mm.yy")
' datediff(m,format(str_date,"dd.mm.yy"),format(str_date,"dd.mm.yy"))

If str_date2 > 0 Then
If DateDiff("d", str_date, str_date2) > 0 Then
str_date = str_date2
End If
End If
Next cnt
End If

fs2.FileName = Format(str_date, "dd.mm.yy") & ".mdb"
If Left(fs2.FileName, 1) = "0" Then
fs2.FileName = "*" & Right(fs2.FileName, Len(fs2.FileName) - 1)
End If
If fs2.Execute() > 0 Then
If fs.foundfiles(i) <> fs2.foundfiles(1) Then
Exit For
End If
End If
End If
' Me.NameBD.Caption = "(" & fs.foundfiles(i) & ")"
For J = 1 To 1
Select Case J
Case 1
Name = "Budget"
End Select
Select Case Priznak
Case 0
Name_W = Name & "_U"
Case 1
Name_W = Name & "_Z"
Case 2
Name_W = Name & "_F"
End Select
If (Priznak = 1 Or Priznak = 2) Or ((Priznak = 0) And (UCase(Right(fs.foundfiles(i), Len(fs.FileName))) = UCase(fs.FileName))) Then
Debug.Print fs.foundfiles(i)
DoCmd.TransferDatabase acImport, "Microsoft Access", fs.foundfiles(i), acTable, Name, temp
Set rs = CurrentDb.OpenRecordset(temp)
If Not rs.EOF Then
Firma = rs!Region_ID
rs.Close
Dim rs2 As DAO.Recordset
Set rs2 = CurrentDb.OpenRecordset("select distinct region_id from temp")

Set rs2 = Nothing
DoEvents
' If Firma = 725 Then
' CurrentDb.Execute ("Update Temp set region_id=725")
' End If

CurrentDb.Execute "Delete * from " & Name_W & " where region_id=" & Firma

CurrentDb.Execute ("insert into " & Name_W & " select * from " & temp)
CurrentDb.Execute ("insert into Protokol (BD_id,Name_BD,Date_time,Type_BD) values(" & Firma & ",""" & fs.foundfiles(i) & """,""" & Day(Date) & "/" & Month(Date) & "/" & Year(Date) & """," & Priznak + 1 & ")")
If Priznak = 2 Then
CurrentDb.Execute "Delete * from Budget_F_copy where region_id=" & Firma
CurrentDb.Execute ("insert into Budget_F_copy select * from " & temp)
' CurrentDb.Execute ("insert into Protokol (BD_id,Name_BD,Date_time,Type_BD) values(" & Firma & ",""" & fs.foundfiles(i) & """,""" & Day(Date) & "/" & Month(Date) & "/" & Year(Date) & """," & Priznak + 1 & ")")
End If
Else
rs.Close
' MsgBox "îòñóòñòâóþò äàííûå ïî " & Name
End If
DoCmd.DeleteObject acTable, temp
End If
Next J
Next i
If Priznak = 2 Then
' 'Çàìåíà ïóñòûõ ïåðèîäîâ íà 2êâ2005
' strsql = "UPDATE Budget_F SET Budget_F.Period_ID = ""2êâ2005"" WHERE (Budget_F.Period_ID Is Null)"
' CurrentDb.Execute strsql
' 'Çàìåíà ïóñòûõ ïåðèîäîâ íà 2êâ2005
' '?????
' 'Óäàëèòü 283 - Íåíåöêèé îêðóã
' strsql = "Delete * from Budget_F WHERE Budget_F.Region_id=283"
' CurrentDb.Execute strsql
' 'Óäàëèòü 283 - Íåíåöêèé îêðóã
' 'Çàìåíèòü NULL Branch_id íà ñòîëè÷íûé
'' strsql = "UPDATE Branch_Dict_New BDN INNER JOIN Budget_F BF ON BDN.Region_ID = BF.Region_ID SET BF.Branch_ID = BDN.SKK_Branch_ID " & _
'' "WHERE (BF.Branch_ID Is Null) And BDN.Direction "
'' CurrentDb.Execute strsql
' 'Çàìåíèòü NULL Branch_id íà ñòîëè÷íûé
' 'Óäàëèòü âñå çàïèñè, ãäå Total=Null
' strsql = "Delete * from Budget_F where Total is Null"
' CurrentDb.Execute strsql
' 'Óäàëèòü âñå çàïèñè, ãäå Total=Null
End If
MsgBox "закончено объединение"
Else
MsgBox "нет данных"
End If
End With

Exit Sub
Label:
MsgBox err.Description
[SRC vba][/src]На том месте fs2.execute() перехватывает fs1

как получиь список подкаталогов в данном каталоге ввиде массива?