Sub Schetchik()
iPath = "e:\Downloads\Docs\"
Cnt = 0
iFName = Dir(iPath & "*.doc")
Do While iFName <> "" [COLOR="Green"]'And InStr(iFName, "+") = False[/COLOR]
Cnt = Cnt + 1
iFName = Dir
Loop
MsgBox Cnt
End Sub
Почему не работает "And"?
Эта процедурка считает (должна была посчитать)
кол-во документов без плюсика в названии:
В данном случае "And" заремлен, поэтому считаются все доки, а если отремить, то не считается ни один. Подскажите, пожалуйста, где ошибка.
Или как надо было правильно записать?
Спасибо.
кол-во документов без плюсика в названии:
Код:
В данном случае "And" заремлен, поэтому считаются все доки, а если отремить, то не считается ни один. Подскажите, пожалуйста, где ошибка.
Или как надо было правильно записать?
Спасибо.
InStr - Returns a Variant (Long) specifying the position of the first occurrence of one string within another. Т.е. возвращает число
Код:
Sub Test()
MsgBox InStr("1234+", "+") ' плюс это 5-й знак сначала строки
End Sub
MsgBox InStr("1234+", "+") ' плюс это 5-й знак сначала строки
End Sub
Код:
Sub Schetchik()
Dim iPath$, iFName$, Cnt&
iPath = "e:\Downloads\Docs\"
Cnt = 0
iFName = Dir(iPath & "*.doc")
Do While iFName <> ""
If InStr(iFName, "+") = 0 Then
Cnt = Cnt + 1
End If
iFName = Dir
Loop
MsgBox Cnt
End Sub
Dim iPath$, iFName$, Cnt&
iPath = "e:\Downloads\Docs\"
Cnt = 0
iFName = Dir(iPath & "*.doc")
Do While iFName <> ""
If InStr(iFName, "+") = 0 Then
Cnt = Cnt + 1
End If
iFName = Dir
Loop
MsgBox Cnt
End Sub
Теперь понял.