Как удалить «filename.txt» в «blah \ bleurgh \ filename.txt» в VBS?

Question

такой глупый вопрос, я знаю, но я хочу удалить имя файла в строке, такой как

"blah\bleurgh\filename.txt"

Чтобы удалить расширение, я бы сделал

strFile = Left(strFile, InStrRev(strFile, ".") - 1)

Но, делая то же самоеудаление имени файла в конце ничего не делает, например,

tempStrFile = Left(tempStrFile, InStrRev(tempStrFile, "\") - 1)

"\\" тоже не работает, если это проблема с escape-символом.

Большое спасибо!

edit: для получения дополнительной информации, если я хочу получить имя файла, например, "filename.txt", я хочу вывести "output_filename.csv" - у меня нет проблем с этим.

ЕслиЯ получаю каталог, хотя, например, "blah \ filename.txt", у меня есть трудности с размещением вывода в середине, чтобы получить "blah \ output_filename.csv"

Answer 1

Если я понимаю, что вы хотите, то ваш код работает для меня, следующий код:

dim tempStrFile
tempStrFile = "blah\bleurgh\filename.txt"
tempStrFile = Left(tempStrFile, InStrRev(tempStrFile, "\") - 1)
tempStrFile = tempStrFile & "\output_filename.csv"
msgbox tempStrFile

выведет blah\bleurgh\output_filename.csv, что, как я считаю, то, что вы хотите.