Программирование
Веб программирование

Работа с файлами visual basic

 
 

Для удаления файлов служит функция Kill "имя файла"

Kill "c:1.txt" 'Удаляем файл 1.txt

Для копирования файлов есть функция FileCopy "дирек1","дирек2"

FileCopy "c:1.txt", "c:11.txt" 'Копируем файл 1.txt из c: в c:1 

Для перемещения файлов Злой Дядька Билл Гейц сделал функцию Name "дирек1Имя файла" as "дирек2Имя файла"

Name "c:1.bmp" As "c:11.bmp" 'Перемещаем файл 1.BMP из диска c: в c:1.bmp

Переименование файлов делается также как и перемещение.

Name "c:1.bmp" As "c:22.bmp" 'Переименовываем файл 1.bmp в 22.bmp

Есть вопросы? Спроси на нашем форуме!!
Гость [11.04.2011 12:41]

А как *.txt открыть в Text1.Text ???

Андрей [12.04.2011 18:15]

Об этом говорится раншьше, мы ещё прогу делали "Халявный Нет"

Name "c:\1.bmp" As "c:\1\1.bmp" 'Перемещаем файл 1.BMP из диска c:\ в c:\1.bmp [13.04.2011 05:42]

ошибку выдает!!!

Вл@дислав [27.05.2011 22:27]

во первых, ты тут понаставил кучу всяких ненужных слешей... а во-вторых это вообще непонято: ПЕРЕМЕЩАЕМ ФАЙЛ 1.bmp ИЗ ДИСКА C:\ В C:\1.BMP

padre03 [27.05.2011 23:16]

Эммб.. наверное мой косяк со слэшами, это экранирование от атак SQL-инъекция. Сейчас код гляну.. Андрей не причем, он слэши не ставил ))

padre03 [27.05.2011 23:18]

Сайт vbbook находиться на старом движке, времени нет на новый поставить. Вот и приходиться заплатки ставить ))

padre03 [27.05.2011 23:23]

А что за ошибку выдает?

Name \"c:\\1.bmp\" As \"c:\\1\\1.bmp\" \'Перемещаем файл 1.BMP из диска c:\\ в c:\\1.bmp [18.06.2011 09:53]

не какую не выдает только желтым цветом делает

Name "c:\1.bmp\" As "c:\1\1.bmp\" 'Перемещаем файл 1.BMP из диска c:\ в c:\1.bmp [18.06.2011 09:57]

не какую не выдает только желтым цветом делает

Name "c:1.bmp" As "c:22.bmp" [02.01.2012 10:25]

1

Кто то просил - Матрицу(массив) A(36,42),либо A(1 to 36,1 to 42) [05.03.2012 17:14]

CLS
Dim a(36,42) as single
dim n as single
n=0
fOR I=1 TO 36
FOR J=1 TO 42
n=n+1
a(j,i)=n 'это заполнение
print a(j,i)'печать по диоганали
next j,i
fOR I=1 TO 36
FOR J=1 TO 42
PRINT A(j,i);' печать матрицы(массива)
next j
print
next i

Вот халява,жалко что ли [05.03.2012 17:22]

Text2.txt = Text1.Text
еше
JK=VAL( Text1.Text) 'реревод числовое

player404 [12.05.2012 15:55]

как сделать чтобы в текстовом поле вводиш имя файла жмеш кнопку файл удаляеться

Юра (Shade) [12.05.2012 17:32]

Option Explicit

Dim strPath As String

Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

strPath = Text1.Text

Call DeleteFile(strPath)

Как создать файл програмно? [18.06.2012 22:24]

А?

FireDay [19.06.2012 00:19]

player404,

DEL [/P] [/F] [/S] [/Q] [/A[[:]атрибуты]] имена
ERASE [/P] [/F] [/S] [/Q] [/A[[:]атрибуты]] имена

имена Список из одного или нескольких файлов или каталогов.
Для удаления группы файлов можно использовать подстановочные
знаки. Если указан каталог, будут удалены все файлы в этом
каталоге.

/P Запрос подтверждения перед удалением каждого файла.
/F Принудительное удаление файлов, доступных только для чтения.
/S Удаление указанных файлов из всех подкаталогов.
/Q Отключение запроса на подтверждение при удалении файлов.
/A Отбор файлов для удаления по атрибутам.
атрибуты R Файлы, доступные только для чтения.
S Системные файлы.
H Скрытые файлы.
A Файлы, готовые для архивирования.
I Файлы с неиндексированным содержимым.
L Точки повторной обработки.
- Префикс "-" имеет значение НЕ.

Изменение команд DEL и ERASE при включении расширенной обработки команд:

Результаты вывода для ключа /S принимают обратный характер, то есть выводятся
только имена удаленных файлов, а не файлов, которые не удалось найти.

FireDay [19.06.2012 00:22]

То есть пишите shell "del ..."

Как создать файл програмно? [18.06.2012 22:24], Open "D:\TEST.txt" For Output As #1: Close #1

Ivan40 [20.07.2013 23:32]

А можно и произвольно эти же действия делать с любыми директориями. Для этого делаем 2 текстовых окна и 3 кнопки: Command1, Command2, Command3. 1 текстовое окно у нас для записи пути к изначальному файлу, а 2 окно для совершения действия (кроме удаления). Код с пояснениями:

1) Удаление файла: в окно Text1 пишем путь к ненужному файлу, например D:1.txt и нажимаем кнопку Command1.
Код к кнопке:
Private Sub Command1Click() 'удалить файл
Kill (Text1)
End Sub

Перед копированием файла в Text1 пишем путь к нужному файлу: D:1.txt, а в окно Text2 путь к директории с файлом, который после нажатия кнопки Command2 там окажется: D:44/1.txt и жмём кнопку Command2.
Вот код к кнопке:
Private Sub Command2
Click() 'копировать файл
FileCopy (Text1), (Text2)
End Sub

Переместить файл можно также, как и в описанном автором выше примере, только "c:1.bmp" пишем в окно Text1, а "c:11.bmp" пишем в окно Text2 и жмём кнопку Command3. Также и с переименованием: в окно Text1 пишем изначальное имя файла, а в окно Text2 новое имя файла, как описано выше, только уже не в код, как в описанном выше примере, а в окно Text2. Нажимаем на кнопку Command3.
Код к кнопке:
Private Sub Command3_Click() 'переместить или переименовать файл
Name (Text1) As (Text2)
End Sub

Пробуйте! :)



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.