Rename a file based on a string VB SCRIPT

[davidpayten]

Hi All,

I am trying to rename a file that I have in a folder using "VB script". The the name of the file is currently:

>J:\Upload Data\connect\postbillcca_12052008.txt

I want to look for postbillcca_????????.txt
or
I want to look for postbillcca_???????.txt ( the day if single ie 6 will show as 6 instead of 06

Cant seem to find anything in the vb library that will help me, kind of new to this sort of thing.

Any help would be much appreciated.

Cheers

Dave

 

[jindon]

Just for a start.

Sub test()
Dim myDir As String, fn As String, msgAs String
myDir = "J:\Upload Data\connect\"
fn = Dir(myDir & "postbillcca_*.txt")
msg = "Found"
If fn = "" Then msg = "No such file"
Do While fn <> ""
    If (LCase(fn) Like "postbillcca_########.txt") + _
       (LCase(fn) Like "postbillcca_#######.txt") Then
       msg = msg & vbLf & fn
    End If
    fn = Dir
Loop
MsgBox msg
End Sub

 

[davidpayten]

Cheers mate. Will give that code a try. Its exactly what Im looking for.

Dave

 

[davidpayten]

Hey There,

Having trouble trying to execute the following bit of code. It doesn't seem to like / execute:
line 9 for > & right(f1.name,4) = ".txt"

In essence im trying to find a file based on name and whether it ends in txt and then if it exists shorten the name = postbill.txt

Again trying to do this in VB script:



Dim fs, f, f1, fc, s,d, strName
Set fs = CreateObject("Scripting.FileSystemObject")
folderspec = "J:\Upload Data\connect\"
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc

If Instr(1,f1.name,"postbillcca") > 0 & right(f1.name,4) = ".txt" Then

fs.GetFile(f1).copy folderspec
Filename = folderspec & f1.Name
NewFileName = folderspec & "postbillcca.txt"
fs.MoveFile Filename, NewFileName

End if


Next

 

[xenou]

If Instr(1,f1.name,"postbillcca") > 0 & right(f1.name,4) = ".txt" Then

You can't use this operator...
What you want is:

If Instr(1,f1.name,"postbillcca") > 0 AND right(f1.name,4) = ".txt" Then

your code has a few more syntax errors of this same kind...make all those corrections and try it again.

AB


EDIT:
Note that this is okay:
NewFileName = folderspec & "postbillcca.txt"
(& is a concatenation operator for strings.)