| Вопрос: Файловая система: невозможно скопировать файл! | Добавлено: 05.08.06 18:57 |
Автор вопроса:  MYSTERIOR | Web-сайт: XXX | ICQ: 227369659 |
|
Итак, я запускаю консольную программу для перекодировки WAV в MP3 и указываею ей имя начального и конечного файла
SHell "WAV2MP3.EXE aster.wav aster.mp3"
по окончании работы у меня в доиректории которая установлена по дефолту создается файл aster.mp3. Я хочу его скопировать в папку "C:\output" FileSystem.MkDir "C:\output"
FileSystem.FileCopy "aster.mp3", "C:\output\aster.mp3" вследствие чего, вылетает сообщение о не возможности получения доступа к файлу (точнее перевести не могу - у меня MSVB на испанском) самое странное что при попытки удалить/скоопировать этот файл из эксплорера все получается. Что может служить этому причиной? Заранее спасибо. |
| Ответы | Всего ответов: 13 |
|
Номер ответа: 1 Автор ответа:  BUG(O)R ICQ: 827887 Вопросов: 13 Ответов: 142 |
Web-сайт: Профиль | | #1 | Добавлено: 05.08.06 19:42 |
|
Ты уверен, что на момент копирования программа WAV2MP3.exe уже закончила работу с файлом?
Попробуй использовать апи: Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long Возможно ВБ сам чё-то гонит... |
||
|
Номер ответа: 2 Автор ответа: MYSTERIORICQ: 227369659 Вопросов: 31 Ответов: 96 |
Web-сайт: Профиль | | #2 | Добавлено: 05.08.06 19:59 |
|
я хотел написать что использовал и эту АПИ но все равно не работает.
Ради интереса провел следственный эксперимент. Заупстил WAV2MP3 на ожидание. Т. е. когда программа пошлю дальше, WAV2MP3 уже закончил свою работу. Не помогло - выдает ошибку. Тогда я СОЗДАЮ НОВЫЙ проект и пишу в нем FileSystem.FileCopy "aster.mp3", "C:\output\aster.mp3"
и вылетает та же самая ошибка. т.е. от конкретного проекта это не зависит. и программа уже завершилась ибо в противном случае раз программа запущена на ожидание, значит код бы дальше выплняться не стал. Может она какие нибудь права доступа выставляет, что-ли?) Как чмод на фтп!  )
|
||
|
Номер ответа: 3 Автор ответа: BUG(O)RICQ: 827887 Вопросов: 13 Ответов: 142 |
Web-сайт: Профиль | | #3 | Добавлено: 05.08.06 20:09 |
|
Может, попробуй поставить другие
|
||
|
Номер ответа: 4 Автор ответа: MYSTERIORICQ: 227369659 Вопросов: 31 Ответов: 96 |
Web-сайт: Профиль | | #4 | Добавлено: 05.08.06 20:11 |
|
Гы, если бы я знал как!
не подскажешь?) |
||
|
Номер ответа: 5 Автор ответа: MYSTERIORICQ: 227369659 Вопросов: 31 Ответов: 96 |
Web-сайт: Профиль | | #5 | Добавлено: 05.08.06 20:11 |
| хотя такое маловероятно | ||
|
Номер ответа: 6 Автор ответа: BUG(O)RICQ: 827887 Вопросов: 13 Ответов: 142 |
Web-сайт: Профиль | | #6 | Добавлено: 05.08.06 20:16 |
|
SetAttr "C:\aster.mp3", vbReadOnly 'Поставить атрибут "Только чтение"
SetAttr "C:\aster.mp3", GetAttr("C:\not_onlyread_file"  And (Not vbReadOnly) 'Очистить атрибут "Только чтение"
SetAttr "C:\aster.mp3", vbArchive 'Поставить атрибут "Архивный" SetAttr "C:\aster.mp3", GetAttr("C:\not_archive_file" And (Not vbArchive) 'Очистить атрибут "Архивный"
SetAttr "C:\aster.mp3", vbHidden 'Поставить атрибут "Скрытый" SetAttr "C:\aster.mp3", GetAttr("C:\not_hidden_file" And (Not vbHidden) 'Очистить атрибут "Скрытый"
|
||
|
Номер ответа: 7 Автор ответа: MYSTERIORICQ: 227369659 Вопросов: 31 Ответов: 96 |
Web-сайт: Профиль | | #7 | Добавлено: 05.08.06 21:25 |
|
не-а
ничего не помогает файл не копируется. почему же из видов то все копируется?! |
||
|
Номер ответа: 8 Автор ответа: MYSTERIORICQ: 227369659 Вопросов: 31 Ответов: 96 |
Web-сайт: Профиль | | #8 | Добавлено: 05.08.06 21:29 |
|
Воот
теперь выдает другую ошибку: Error '53' en tiempo de ejecucion No sa ha encontrado el archivo. |
||
|
Номер ответа: 9 Автор ответа: Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #9 | Добавлено: 05.08.06 21:42 |
| Error 53: «Файл не найден» | ||
|
Номер ответа: 10 Автор ответа: MYSTERIORICQ: 227369659 Вопросов: 31 Ответов: 96 |
Web-сайт: Профиль | | #10 | Добавлено: 05.08.06 21:43 |
| т.е он не может найти исходный файл? с которого копируют? | ||
|
Номер ответа: 11 Автор ответа: Dr. Zwoo4 ICQ: 319248917 Вопросов: 3 Ответов: 25 |
Профиль | | #11 | Добавлено: 06.08.06 04:04 |
|
Попробуй проверить наличие копируемого файла через Len(Dir(path,vbArchive+vbHidden+vbNormal+vbReadOnly+vbSystem))=0 Then MSGBOX "Ой..."
не помогает? Проверь залоченность файла: On Error Resume Next Dim A As String * 1 Open Path For Binary As #1 A = Input(1, 1) Close #1 If Err Then MSGBOX "Ой..." тож не помогает? А может быть проделать то же самое с местом назначения? Т.е. destinationPath? |
||
|
Номер ответа: 12 Автор ответа:  JMPВопросов: 6 Ответов: 171 |
Профиль | | #12 | Добавлено: 06.08.06 07:35 |
|
Попробуйте destination path определять как UNC
FileSystem.FileCopy "\\?\.\aster.mp3", "\\?\C:\output\aster.mp3" |
||
|
Номер ответа: 13 Автор ответа: MYSTERIORICQ: 227369659 Вопросов: 31 Ответов: 96 |
Web-сайт: Профиль | | #13 | Добавлено: 06.08.06 13:11 |
| спасибо, все заработало! | ||
Страница: 1 |