Страница: 1 |
Страница: 1 |
Вопрос: путь к файлу в MMControl
Добавлено: 19.06.06 03:42
Автор вопроса: pinky | Web-сайт:
через MMControl обращаюсь к wav-файлу, путь к нему подробоно прописываю в свойстве FileName с указанием диска, всех папок и т.д(иначе не работает!). поэтому если папку с прогой переношу в другое место, то звука, естессно, нет, что совсем не радует!! можно ли как-то вызвать звуковой файл, просто указав его имя и подразумевая что он находится в тойже папке что и экзешник?? или это можно сделать без MMControl?
помогите плиз!!
Ответы
Всего ответов: 8
Номер ответа: 1
Автор ответа:
[root]
Вопросов: 45
Ответов: 1212
Web-сайт:
Профиль | | #1
Добавлено: 19.06.06 08:44
FilneNum = FreeFile
Open App.Path & "\log.lg" For Append As #FilneNum
Print #FilneNum, strInfo
Close #FilneNum
Номер ответа: 2
Автор ответа:
LamerOnLine
ICQ: 334781088
Вопросов: 108
Ответов: 2822
Профиль | | #2
Добавлено: 19.06.06 11:54
[root], ну чему ты человека учишь? Проверка на App.Path где? Вот кинет чел свою прогу в корень, и будет ругаться - какой же [root] ламер, такую бяку подсказал, неработает )
Номер ответа: 3
Автор ответа:
Mervil
Вопросов: 1
Ответов: 7
Профиль | | #3
Добавлено: 19.06.06 12:51
LamerOnLine - Что за проверка?
Номер ответа: 4
Автор ответа:
LamerOnLine
ICQ: 334781088
Вопросов: 108
Ответов: 2822
Профиль | | #4
Добавлено: 19.06.06 12:57
Элементарная. Все App.Path заменяешь на AppPath и добавляешь код
Dim AppPath As String
If Right$(AppPath, 1) = "\" Then
AppPath = App.Path
Else
AppPath = App.Path & "\"
End If
Номер ответа: 5
Автор ответа:
pinky
ICQ: 218-538-334
Вопросов: 3
Ответов: 9
Web-сайт:
Профиль | | #5
Добавлено: 19.06.06 13:10
спасибо , [root], все получилось! так долго парился, а оказывается что все просто
2 LamerOnLine - а что это за проверка? прога везде работает и в корне тоже
Номер ответа: 6
Автор ответа:
GSerg
Вопросов: 0
Ответов: 1876
Профиль | | #6
Добавлено: 19.06.06 13:43
pinky, если винда 2000 и выше заменяет за тебя \\ на \, это не значит, что \\ - это правильно.
Номер ответа: 7
Автор ответа:
[root]
Вопросов: 45
Ответов: 1212
Web-сайт:
Профиль | | #7
Добавлено: 19.06.06 18:52
LamerOnLine - все гуд, я общий смысл подсказал
Номер ответа: 8
Автор ответа:
pinky
ICQ: 218-538-334
Вопросов: 3
Ответов: 9
Web-сайт:
Профиль | | #8
Добавлено: 19.06.06 19:10
GSerg, я все понял. просто никогда с этим не сталкивался, не в курсе