File information 1

[omegabeta]

I want to copy a file from \\comp1\share into \\comp1\share\01 or 02... depending on the name of file.
The name of file is like file2901.txt, file0202.txt.

So I know the path \\comp1\share where I have a file.
How can I get the name of this file to extract only the month and then copy it in the corresponding folder ?

Thank in advance

 

[mrmovie]

Get a reference to your source folder,,,something like

Set objSourceFld = FSO.GetFolder("\\comp1\share&quot

strMonth = Month(Now)

'Then something like
For Each aFile In objSourceFld.Files
If Right(aFile.Name, 6) = strMonth & ".txt" Then
'we need to copy file
FSO.CopyFile aFile, "\\comp2\share\" & strMonth
End If
Next


the above is pretty crude but it should give you something to start on, the whole Right(aFile.Name, 6...will need addressing

regards
richard

 

[JayValkyr]

Hey..

You have to remember that leading zero in the month number

according to mrmovie:
---

strMonth = Month(Now)

'add these lines..

if int(strMonth) < 10 then
strMonth = &quot;0&quot; & strMonth
end if
---

that should do it..

Jay

 

[infinitelo]

or
right(100+month(now()),2)


if it is to be it's up to me

 

[omegabeta]

Thanks to all. Especially to mrmovie.