Нужна срочно помощь

[maxi_10]

Есть переменная "Х"
есть текст "max.txt"
Как мне присвоить переменной "Х" только назвапние файла без расширения.

[RayShade]

Ну наверное так



Х = Mid("max.txt",1,instr(1,"max.txt",".",vbtextcompare)-1)

[NJ]

Ну наверное так

Х = Mid("max.txt",1,instr(1,"max.txt",".",vbtextcompare)-1)

ага. только лучше так:
Х = Mid("max.txt", 1, InStrRev("max.txt", ".") - 1)

а то мало-ли там точек в имени файла...

[Vitaly1]

ага. только лучше так:
Х = Mid("max.txt", 1, InStrRev("max.txt", ".") - 1)

я думаю, что так еще лучше, вдруг имя файла будет без расширения?!

name ="max.txt" 'одно из возможных имен

If instr(name,".") <> 0 then
Х = Mid(name, 1, InStrRev(name, ".") - 1)
else
Х = name
end if