Volniy

|
Posted: Sun Feb 01, 2009 02:29 Post subject: |
|
|
gumanok wrote: | Вроде, все правильно написано. |
Не правильно. Для поиска позиции следующего символа _
Code: | DashInName = Instr(DashInName + 2, FileName, "_") |
А вообще тут проще использовать функцию Split, типа так:
Code: | AllDashes = Split(FileName, "_")
'MsgBox AllDashes(0) & vbCr & AllDashes(1) |
|
|