Copy and move and rename file MS-ACCESS VBA

[73429]

Hi i have a a database that i use a cmd that use the filecopy method
i want to accomplish is to rename the files to a consecutive numbers order
could anyone be a help
thank you

[cactusdata]

If you can accept to compress the file before copying, you can use one of my functions right away:

• zip
• cab
• tar

found in my repository at GitHub:

https://github.com/GustavBrock/VBA.Compress

Or you can modify the code stub that controls the versioning to fit your need:

ZipFile = FileSystemObject.BuildPath(ZipPath, ZipName)

If FileSystemObject.FileExists(ZipFile) Then
    If OverWrite = True Then
        ' Delete an existing file.
        FileSystemObject.DeleteFile ZipFile, True
        ' At this point either the file is deleted or an error is raised.
    Else
        ZipBase = FileSystemObject.GetBaseName(ZipFile)
        ExtensionName = FileSystemObject.GetExtensionName(ZipFile)
        Extension = "." & ExtensionName
        
        ' Modify name of the zip file to be created to preserve an existing file:
        '   "Example.zip" -> "Example (2).zip", etc.
        Version = Version + 1
        Do
            Version = Version + 1
            ZipFile = FileSystemObject.BuildPath(ZipPath, ZipBase & Format(Version, " \(0\)") & Extension)
        Loop Until FileSystemObject.FileExists(ZipFile) = False Or Version > MaxZipVersion
        If Version > MaxZipVersion Then
            ' Give up.
            Err.Raise ErrorPathFile, "Zip Create", "File could not be created."
        End If
    End If
End If
' Set returned file name.
Destination = ZipFile

[73429]

Hi
i want it should copy and rename any file format
any advise ?

[cactusdata]

My code above will copy any file extension.

[73429]

Hi
thanks for your respond
i don't want the files to be saved as zip file
any advise
thank you

[cactusdata]

Again: the code above will copy any file extension. Why don't you try?

[73429]

correct but will it be saved as zip ?

[cactusdata]

Only if it was a zip file. Why don't you try?