Добро пожаловать, Гость
Логин: Пароль: Запомнить меня

Перемещение и сохранение файла dll а не txt
(1 чел.) (1) гость
  • Страница:
  • 1

Перемещение и сохранение файла dll а не txt

Перемещение и сохранение файла dll а не txt 28/04/2015 09:54 #1

  • avmu
  • ( Пользователь )
  • Вне сайта
  • Новый участник
  • Постов: 2
  • Баллов: 10
  • Репутация: 0
Пытаюсь перенести файл.dll с одной папки в заданную папку файл dll,он переносится но не полностью
Как это сделать.Желательно код.Возможно я обьявляю,что то не то. Файл txt получается,а dll нет. Только учусь.Спасибо за помощь.
Последнее редактирование: 28/04/2015 09:57 от avmu.

Перемещение и сохранение файла dll а не txt 29/04/2015 07:47 #2

  • avmu
  • ( Пользователь )
  • Вне сайта
  • Новый участник
  • Постов: 2
  • Баллов: 10
  • Репутация: 0
Вот так Я делаю для переноса файлов из папки в папку,но это для TXT,а я хочу для файлов DLL.

Option Explicit
Dim F As Long

Private Sub Command1_Click()
Dim Stroka As String
On Error GoTo Cansel
CommonDialog1.CancelError = True
CommonDialog1.Filter = "Текстовые файлы (*.txt) файлы данных (*.dat)|*.txt;*.dat"
CommonDialog1.Flags = cdlOFNFileMustExist
CommonDialog1.DialogTitle = "Загрузить текстовый документ"
CommonDialog1.ShowOpen
F = FreeFile
Text1.Text = ""
Open CommonDialog1.FileName For Input As #F
Do While Not EOF(F)
Line Input #F, Stroka
Text1.Text = Text1.Text & Stroka
Loop
Close #F

Exit Sub
Cansel:
If Err.Number = cdlCancel Then
Exit Sub
Else
MsgBox Err.Description
'Exit Sub
End If
End Sub

Private Sub Command2_Click()
F = FreeFile
On Error GoTo Cansel
CommonDialog1.CancelError = True
CommonDialog1.Filter = "Текстовые документы (*.txt) файлы данныхõ (*.dat)|*.txt;*.dat"
CommonDialog1.Flags = cdlOFNOverwritePrompt
CommonDialog1.DialogTitle = "Сохранить текстовый документ как..."
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #F
Print #F, Text1.Text
Close #F
Exit Sub
Cansel:
If Err.Number = cdlCancel Then
Exit Sub
Else
MsgBox Err.Description
End If
End Sub
Последнее редактирование: 29/04/2015 07:51 от avmu.
  • Страница:
  • 1
Время создания страницы: 0.20 секунд