Как переименовывать и копировать файлы ?

[antihacker]

В папке лежит несколько файлов. Как можно с помощью VBA,в Акцессе, взять файлы по одному по очереди и переименовывая перекопировать под новым именем в другую папку ?

[tyomitch]

Операторы FileCopy и Name.

[antihacker]

Ну это когда ты укзываешь в алгоритме старое имя файла. А я хочу что бы он открыл папку и сам по очереди получал имя каждого файла и переименовывал. Ведь в папке их куча...

[RayShade]

Поиском по форуму. Это уже обсуждалось 100 раз. Ищи слова типа FSO, FileSystemObject и Dir.

[antihacker]

вот решение. Перемещает файлы по одному и дает новое имя

Dim P As String, F, j As String
Dim OldName, NewName
Dim i As Integer
i = 100

P = "E:\WorkInProgress\Data base of Archive\Scan_Doc\"
F = Dir$(P & "*.PDF")
Do Until Len(F) = 0
j = Str(i)
j = Right(j, Len(j) - 1)
OldName = P + F: NewName = "E:\WorkInProgress\Data base of Archive\Copy\" + j + ".PDF"
MsgBox (F)
Name OldName As NewName ' Move and rename file.

i = i + 1

F = Dir$()
Loop

[gjghjc]

Код: Выделить всё

j = Str(i)
j = Right(j, Len(j) - 1)


А что делает этот кусок кода???

[alibek]

Заменяет LTrim$ или Mid$(,2).

[RayShade]

Вообще, весь этот код пытается заменить собой FSO.CopyFile

[gjghjc]

Tools -> Reference. Подключи Microsoft Scripting Runtime
дальше такой код
в генерал

Код: Выделить всё

Dim fso As New Scripting.FileSystemObject
Dim pFolder As Scripting.Folder

в коде кнопки

Код: Выделить всё

Set pFolder = fso.GetFolder("E:\WorkInProgress\Data base of Archive\Scan_Doc")
    For Each pFile In pFolder.Files
            I=I+1
            fso.CopyFile pFile.Path,  "E:\WorkInProgress\Data base of Archive\Copy\" (mid$ (pFile.Name , 1, len(pFile.Name) -4) & I & ".pdf")
    Next pFile

Вот вроде так... попробуй. Но советами таких людей как RayShade и tyomitch не пренебрегай.... Про поиск они правы
Почитал топик RayShade устыдился..... и поправил код.