VBNet - Форум

Вопрос: FileCopy Добавлено: 26.11.08 16:49

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

Мне надо написать прогу, которая копировала себя в другую паку. Я написал такой код:

Dim sFileToCopy As String
Dim sDestination As String
sDestination = "C:\новая папка\прога.exe"
sFileToCopy = "прога.exe"
FileCopy sFileToCopy, sDestination

Но VisualBasic не понимает строку
FileCopy sFileToCopy, sDestination
,т.к. требует полный путь к копируему файлу. Мне надо что бы моя прога находила полный путь к себе и копировала себя в заданную папку.
Ответить

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

Номер ответа: 1 Автор ответа: s12 Вопросов: 24 Ответов: 363	Профиль \| \| #1	Добавлено: 26.11.08 17:01
	sFileToCopy = "прога.exe" Измени на sFileToCopy = App.Path & "\прога.exe" Ответить

Номер ответа: 2 Автор ответа: Tolya Вопросов: 13 Ответов: 18	Профиль \| \| #2	Добавлено: 26.11.08 17:04
	Спасибо все работает! Ответить

Номер ответа: 3 Автор ответа: Tolya Вопросов: 13 Ответов: 18	Профиль \| \| #3	Добавлено: 27.11.08 17:43
	У меня еще один вопрос: надо что бы при копировании файла прога проверяла существует такой файл или нет, если существует то копирование отменяется. Ответить

Номер ответа: 4 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #4	Добавлено: 27.11.08 18:36
	Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long Ответить

Номер ответа: 5 Автор ответа: Tolya Вопросов: 13 Ответов: 18	Профиль \| \| #5	Добавлено: 27.11.08 19:19
	чет не понятно как это использовать? Ответить

Номер ответа: 6 Автор ответа: @lex Вопросов: 14 Ответов: 262	Профиль \| \| #6	Добавлено: 27.11.08 19:43
	Tolya пишет: чет не понятно как это использовать? Блин что тут непонятного) Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long Private Sub Form_Load() If PathFileExists("C:\windows\explorer.exe") = 1 Then MsgBox "Файл существует" End Sub Сложно, правда? Ответить

Страница: 1 |