VBNet - Форум - Путь к файлу

Вопрос: Путь к файлу Добавлено: 20.01.08 02:34

Автор вопроса: Student

Set fs = CreateObject("Scripting.FileSystemObject")
  ofn = Application.GetOpenFilename
    d = ActiveWorkbook.Path
    If Not fs.fileexists(ofn) Then GoTo g
    a = FormatDateTime(Now, vbGeneralDate)
  aa = Replace(a, ":", "_", , , 1)
  aaa = Replace(aa, " ", "_", , , 1)
  aaaa = Replace(aaa, ".", "_", , , 1)
fs.CreateFolder (d + "\" + aaaa + "\")
  s = d + "\" + aaaa + "\"
  fs.movefile ofn, s

Файл перенесен из ofn в s. Каким образом можно возвратить относительный путь к файлу в новой дирректории?
Ответить

Ответы Всего ответов: 11

Номер ответа: 1 Автор ответа: night-roll Вопросов: 36 Ответов: 326	Профиль \| \| #1	Добавлено: 20.01.08 23:12
	чего-то я не понял, а s тогда что? а зачем такие извращения с аааа Ответить

Номер ответа: 2 Автор ответа: night-roll Вопросов: 36 Ответов: 326	Профиль \| \| #2	Добавлено: 20.01.08 23:18
	замени вот это a = FormatDateTime(Now, vbGeneralDate) aa = Replace(a, ":", "_", , , 1) aaa = Replace(aa, " ", "_", , , 1) aaaa = Replace(aaa, ".", "_", , , 1) на это a = Format(Now,"dd_mm_yyyy_hh_nn_ss" Ответить

Номер ответа: 3 Автор ответа: Student Вопросов: 2 Ответов: 8	Профиль \| \| #3	Добавлено: 20.01.08 23:27
	на это a = Format(Now,"dd_mm_yyyy_hh_nn_ss" Спасибо за подсказку! Я ведь только учусь. А на счет пути файла в новой дирректории,подскажите, пожалуйста. Ответить

Номер ответа: 4 Автор ответа: night-roll Вопросов: 36 Ответов: 326	Профиль \| \| #4	Добавлено: 20.01.08 23:31
	а s тогда что? Ответить

Номер ответа: 5 Автор ответа: Student Вопросов: 2 Ответов: 8	Профиль \| \| #5	Добавлено: 20.01.08 23:36
	s-дирректория, где будет лежать файл, но при вставке гиперссылки на страницу со значением s открывается папка, а не файл Ответить

Номер ответа: 6 Автор ответа: night-roll Вопросов: 36 Ответов: 326	Профиль \| \| #6	Добавлено: 20.01.08 23:45
	тогда вопроса не понял Каким образом можно возвратить относительный путь к файлу в новой дирректории? имя файла где передаётся? а если не передаётся, то тогда как файл открывать? Ответить

Номер ответа: 7 Автор ответа: Student Вопросов: 2 Ответов: 8	Профиль \| \| #7	Добавлено: 20.01.08 23:56
	Может я не правильно изъясняюсь. Но мне хотелось что бы после переноса файла из одной дирректории в другую на листе Excel формировалась ссылка на файл в новой дирректории именно на файл, а не на папку Ответить

Номер ответа: 8 Автор ответа: night-roll Вопросов: 36 Ответов: 326	Профиль \| \| #8	Добавлено: 21.01.08 00:38
	ссылка формируется примерно таким образом Worksheets(1).Hyperlinks.Add Anchor:="Куда", Address:="сама ссылка" т.е. Куда - это адрес ячейки, где располагается ссылка а Сама ссылка - это либо ссылка в Инет, либо полный путь к файлу + его полное имя! преобразуем Worksheets(1).Hyperlinks.Add Anchor:=Range("A5", Address:="C:\ПапкаФайла\ИмяФайла.Рсш" а в твоем коде я не заметил имя фала! Ответить

Номер ответа: 9 Автор ответа: night-roll Вопросов: 36 Ответов: 326	Профиль \| \| #9	Добавлено: 21.01.08 00:44
	или вопрос в другом - как вычленить имя файла из ofn? Ответить

Номер ответа: 10 Автор ответа: Student Вопросов: 2 Ответов: 8	Профиль \| \| #10	Добавлено: 21.01.08 00:55
	Да, вопрос именно в том как из ofn вычленить имя файла, причем заранее не известно его расширение Ответить

Номер ответа: 11 Автор ответа: night-roll Вопросов: 36 Ответов: 326	Профиль \| \| #11	Добавлено: 21.01.08 01:06
	юзай функции "работа со строкой" например, Split, Mid Ответить

Страница: 1 |