MyTetra Share
Делитесь знаниями!
Копирование, удаление, переименование, перемещение, создание папок и файлов
19.07.2018
19:32
Раздел: VBA - Access - msa.polarcom.ru - 12 Папки и Файлы


Копирование, удаление, переименование, перемещение, создание папок и файлов

Удаление файла


Kill "C:\Temp\TestFile.txt"




Копирование файла


FileCopy "Исходный Путь", "Путь Назначения"





FileSystemObject.CopyFile "c:\mydocuments\letters\*.doc", "c:\tempfolder\"





Перемещение файла

FileSystemObject.MoveFile "c:\mydocuments\letters\*.doc", "c:\tempfolder\"




Изменение имени файла или папки (перемещение)


Name "Исходный Путь" As "Новый Путь"




Создание папки (только по одной папке за раз)


MkDir "C:\Новая папка"




Удаление паки (только без файлов)


RmDir "C:\Новая папка"





Удаление папки (со всем содержимым)

Dim obj As FileSystemObject

' Для FileSystemObject - требуется установленная ссылка на Microsoft Scripting RunTime

' (C:\Windows\System32\scrrun.dll)

' Или можно обьявить как OBJECT: Dim obj As Object - должно работать!

Set obj = New FileSystemObject

obj.DeleteFolder "D:\TEMP", True




Перемещение файлов из одной папки в другую по маске

Public Sub esFilesMove(sSrsDir As String, sDstDir As String, Optional sMask As String = "*.*")

'es - 25.04.2013

'Перемещение файлов из одной папки в другую по маске (названию)

'Аргументы:

' sSrsDir = Исходная папка

' sDstDir = Папка назначения

' sMask = маска файлов (или просто имя)

'--------------------------------------------------------------------

Dim s As String

On Error GoTo esFilesMove_Err

'проверка слешей

If Right(sSrsDir, 1) <> "\" Then sSrsDir = sSrsDir & "\"

If Right(sDstDir, 1) <> "\" Then sDstDir = sDstDir & "\"

'Проверка и создание папки назначения (если надо)

If Dir(sDstDir, vbDirectory) = "" Then MkDir (sDstDir)

'Если файлы в папке назначения уже существуют (ВНИМАНИЕ! - Удаление по МАСКЕ!)

If Dir(sDstDir & sMask) <> "" Then Kill sDstDir & sMask


'Пое-е-е-е-е-хали!

s = Dir(sSrsDir & sMask)

While s <> ""

Name sSrsDir & s As sDstDir & s 'Перемещение

s = Dir 'след. файл

Wend


esFilesMove_Bye:

Exit Sub


esFilesMove_Err:

MsgBox "Error " & Err.Number & vbCrLf & Err.Description & vbCrLf & _

"in procedure esFilesMove", vbCritical, "Error!"

Resume esFilesMove_Bye

End Sub




Achtung!
Для FileSystemObject - требуется установить ссылку на Microsoft Scripting RunTime (C:\Windows\System32\scrrun.dll)

Назад ToTop

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования