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) |
|
|