Функция Dir

if len(dir(path_to_file))>0 then msgbox "file is exists"

Ответить

Я обычно делаю так:

If Dir(Path) <> "" Then ...

...ну и так далее.

Ответить

ИМХО, у boevik'а быстрее код. Так как у него не создается временной переменной типа String. И вообще проверять string на пустоту лучше через len, нежели через пустую переменную "".

Ответить

2UU:

извини не за грубость, но ты не много обламался:

вот код для 6, кинь на форму тве кнопки:

Private Sub Command1_Click()

s = Timer

For i = 1 To 10000

If Len(Dir(p$)) > 0 Then Me.Caption = "file is exists"

Next i

MsgBox Timer - s

End Sub

Private Sub Command2_Click()

s = Timer

For i = 1 To 10000

If Dir(p$) = "" Then Me.Caption = "file is exists"

Next i

MsgBox Timer - s

End Sub

Первый тест - 14.5 сек

Втрой - 1.1 сек

ИМХО разница очевидна

ЗЫ просто хотелось провести тест

Ответить

 NeForm@t , извини, но у тебя ГРУБЕЙШАЯ ошибка в коде.

давай разберем, что пройсходит в кнопке 1, если Dir впзвращает что либо, то Len(Dir(p$)) > 0 возвращает True и происходит действие Me.Caption = "file is exists"

что пройсходит в кнопке 2, если Dir впзвращает что либо, то  Dir(p$) = "" возвращает False и НЕ происходит действие Me.Caption = "file is exists".

Остается добавить что Dir(p$), когда p$ пусто, возвращает первый попавшийся файл.

Твой тест не был сделан на равных условиях.

Измени строку условия во второй кнопке на

If Dir(p$) <> "" Then Me.Caption = "file is exists", и замерь время.

И еще сделай тест с инициализацией p$.

Ответить

Нет, 1-й код он даже по самой идее - быстрее, а для измерений не следует применять Timer... она неверно бывает отображает время... Пользуем - GetTickCount

Ответить

Да, я действительно допустил ошибку.

Но я ессно испрвамил, вот новый листинг:

Dim p As String

Dim s As Long

Dim i As Integer

Dim a As Integer

Private Declare Function GetTickCount Lib "kernel32.dll" () As Long

Private Sub Command1_Click()

a = 0

p = "c:\"

s = GetTickCount

For i = 1 To 10000

If Len(Dir(p)) > 0 Then

a = a + 1

End If

Next i

MsgBox GetTickCount - s

MsgBox a

End Sub

Private Sub Command2_Click()

a = 0

p = "c:\"

s = GetTickCount

For i = 1 To 10000

If Dir(p) <> "" Then

a = a + 1

End If

Next i

MsgBox GetTickCount - s

MsgBox a

End Sub

Результаты тестов:

1 - 625

2 - 620

это средние значения

они всё время разные:

I

1 - 735

2 - 703

II

1 - 703

2 - 719

III

1 - 735

2 - 687

но, приемущественно всё равно выигрывает второй код

Ответить

Странно... по всем идеям должно быть не так ... Интересно...

Ответить

Ответить

Len не должен быть быстрее, ведь это только лишний вызов функции, а там везде используется variant, как я понял, поэтому и из-за проверки целого прироста производительности не происходит. Да и вообще, Dir - не есть хорошо - существует много более быстрых способов, SHFileExist (кажется так) или CreateFile...

Ответить

Люди, меня поразили результаты тестов с FSO!!

Вот листинг:

'незабудьте ссылку на фсо проставить

Dim p As String

Dim s As Long

Dim i As Long

Dim a As Long

Dim fso As New FileSystemObject

Private Declare Function GetTickCount Lib "kernel32.dll" () As Long

Private Sub Command1_Click()

a = 0

p = "c:\"

s = GetTickCount

For i = 1 To 100000

If Len(Dir(p)) > 0 Then

a = a + 1

End If

Next i

MsgBox GetTickCount - s

MsgBox a

End Sub

Private Sub Command2_Click()

a = 0

p = "c:\"

s = GetTickCount

For i = 1 To 100000

If fso.FolderExists(p) = True Then

a = a + 1

End If

Next i

MsgBox GetTickCount - s

MsgBox a

End Sub

результаты:

1 - 6860

2 - 1515!!!!

вот FSO рулит!

Ответить

А тут финал - FSO рулит перед API!!!!:

Листинг:

'3 кнопки и ссылка на FSO

Dim p As String

Dim s As Long

Dim i As Long

Dim a As Long

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

Dim fso As New FileSystemObject

Private Declare Function GetTickCount Lib "kernel32.dll" () As Long

Private Sub Command1_Click()

a = 0

p = "c:\"

s = GetTickCount

For i = 1 To 100000

If Len(Dir(p)) > 0 Then

a = a + 1

End If

Next i

MsgBox GetTickCount - s

MsgBox a

End Sub

Private Sub Command2_Click()

a = 0

p = "c:\"

s = GetTickCount

For i = 1 To 100000

If fso.FolderExists(p) = True Then

a = a + 1

End If

Next i

MsgBox GetTickCount - s

MsgBox a

End Sub

Private Sub Command3_Click()

a = 0

p = "c:\"

s = GetTickCount

For i = 1 To 100000

If PathFileExists(p) = 1 Then

a = a + 1

End If

Next i

MsgBox GetTickCount - s

MsgBox a

End Sub

Результаты:

1-8078

2-1688!!!

3-2469

ик

Ответить

Да это все в большей степени от оптимитзации зависит... Вот что мы видим...

Не изменяя код:
1. 6440
2. 0751
3. 982

А теперь возьмем не существующую папку... Я брал F:\NewFolder. Результаты уже не так сильно различаются:
1. 2133
2. 1022
3. 1322

Теперь берем папку существующую, но не очевидную, как "с:\":
1. 8873
2. 0841
3. 1132

При этом не стоит забывать что в первом случае используется функция не одна функция и что Dir не просто возвращает 1/0, в зависимости от существования файла, она еще и возвращает имя первого файла в папке, да и к тому же "запоминает" путь... т.к. получение последующих файлов осуществляется простым ее вызовом, без параметров... Да, и еще Dir - работает с атрибутами файлов... Отсюда и результаты...

Не смотря на выводы, я все равно останусь приверженцем АПИ, т.к. на мой взгляд это более удобно, правильно, не требуется доп. подключения библиотек...

Ответить

NetFormat, проведи уж за одно и тест с CreateFile, там флаг имеется специальный, посмотрим как она себя поведет...

Ответить

Ой, очепятался, OpenFile... Вот что у меня: Опять как и в предыдущем случае провел три различных теста, получил:
1. 1973
2. 1552
3. 2223

Вызов функции: OpenFile(p, 0&, &H4000)

Декларация: Private Declare Function OpenFile Lib "kernel32.dll" (ByVal lpFileName As String, lpReOpenBuff As Long, ByVal wStyle As Long) As Long

Вот такие не утишительные результаты...
ЗЫ
Для тестирования брался цикл в 100000

Ответить