Manipulating external files via code

[EddyLLC]

Using Access2003 I have a need to look into a directory, and one at a time, rename and move each file there into another directory. The renaming and moving I have an idea how to do, but how do I loop through the files in the directory? There may be up to 10 files in the directory each with a different name.

Thanks for any suggestions.

 

[traingamer]

Using file system objects

    Dim FSO As New FileSystemObject
    Dim FolderName As Folder
    Set FolderName = FSO.GetFolder("yourpathname")
...
    Set FileNames = FolderName.Files
    For Each FileID In FileNames
       ...
       your code here
       ...
    Next

Greg
"Personally, I am always ready to learn, although I do not always like being taught." - Winston Churchill

 

[EddyLLC]

Thanks for the response Greg and pardon my lack of knowledge. I tried your suggestion and when tested I received an error telling me "Variable Not Defined" on the line "Set Filenames = FolderName.Files". The Variable of course was Filenames. Just to test I dimmed Filenames as Files and then received the error informing me Variable Not Defined referring to the FileID field.

I must be missing the boat. Am I possibly missing a reference?

Thanks
Eddy

 

[TomCologne]

You need to set a reference (Tools > References...) to:

Microsoft Scripting Runtime (C:\WINNT\system32\scrrun.dll)


TomCologne

 

[PHV]

You may also consider the Dir function and the Name ... As instruction.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[EddyLLC]

Thanks for the replys. I checked and I did have a reference to Microsoft Scripting Runtime. I then tried the Dir function and was able to get it working.

Thanks again.
Eddy