Diginfraconacc Discussion Threads

[jl202] 06/8/2002 11:24

Copy the VBScript to a text file and save as name.vbs
Appologies to any programmers who will find it a bit messy I'm sure, but it will work on any windows pc just by double clicking the vbs file (through windows scripting host - so long as you haven't disabled this). JamesD@ADVFN had provided a python script on crocs PC thread that would do the same thing but I didn't have a clue what to do with it. (Can be supplied for the curious).

Read through the comments. At the bottom you will need to edit the file name ending which is currently set to txt. And you can enter your own file name start which for confusion's sake at the moment is jpeg. For the adventurous out there, a bit of jiggery pokery with the copy and paste buttons could create new inputboxes so you can enter you own file name start and file name ending, so you could rename folders of more than one file type without editing the code.........
I know at least one other person will find this useful, enjoy,,




'This VBScript will rename all the files in a given directory
'sequentially from any starting number (Q), intended for use
'with renaming digital camera files. Add some more error checks
'for correct datatype and range if you cant trust yourself.
'Overwrite by default is set to false.

'Dimension variables

strMessage = "Press ok to proceed or cancel to quit"
strTitle = "PhotoFileRenamer MsgBox"

Dim strD
Dim intM
Dim Q
Dim Q2


'Enter Directory name


Call Directory

Sub Directory()

strD = inputbox("Please enter the directory pathname of files to be renamed")

If strD = "" Then
MsgBox "Cancel Confirmed"
WScript.Quit
End if

End Sub


'Confirm go ahead


Sub GoAhead()

intM = MsgBox(strMessage, vbokcancel + vbinformation, strTitle)

If intM = vbCancel then
MsgBox "Cancel Confirmed"
WScript.Quit
End if

End Sub

Call Number

'Rename file code
'Q is the starting number, so you can merge two directories to take to Boots
'starting from different numbers

Sub Number()

Q = inputbox("Please enter the starting number to rename from")

If Q = "" Then
MsgBox "Cancel Confirmed"
WScript.Quit
End if

End Sub

Call GoAhead


'Q2 is required to compensate for the For Each loop adding 1 on the first iteration
'There's probably a tidier way to do this!


Q2 = Q - 1

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(strD)

'Enter the correct file ending, eg jpeg, txt is just for illustration
'and a prenom of your choice: eg holiday

For Each file In f.Files
File.Name = "jpeg" & Q2 & ".txt"
Q2 = Q2 + 1
Next


'Finish


MsgBox "Rename Complete!"
WScript.Quit

[mungoa] 17/4/2001 15:10

Chris......thanks I'll give them a bell

Thanks Anon.....in the end I may end up going down this route.

appreciated the info/suggestions

[chrisdos] 17/4/2001 10:13

Hiring digital cameras comes very expensive, bettter to go out and buy a mid- price one or go down the normal neg route! The place Haystack mentioned is one I use at the Brunswick Centre, London, WC1.
Cheapest is Fuji Finepix camera daily £90 / weekly £315. Tel [phone]

Hope this helps.

Chris

[anon] 12/4/2001 20:34

Use a film type camera and have the negatives digitised and put on a CD. Many film developers offer this service now.

[mungoa] 12/4/2001 15:12

Or perhaps anyone know any good second hand camera shops where I could get a good used digital camera......although really, I dont want to buy kit just for a few days use ??????????

[mungoa] 12/4/2001 13:56

Thanks.....tried that, but it just came up with retailers, who when phoned said nope !

Any other ideas folks??

[glennarnold1] 12/4/2001 10:05

Not sure if it will be any good but why not ask jeeves.co or com.

[mungoa] 12/4/2001 09:56

Haystack/Alchemy....thanks for the response (and u2 Softy2).

Photobox....said they only hire out to a chosen few.....and I'm not chosen... :O(

Jessops said they dont do hire, even though I have bought stuff from the group (Fox Talbot...bought camera, binocs, equip etc)....

So this takes me back to square one... :O(

Any other ideas from anyone?? I just want to hire a good digital camera for about a week/10days. It wont be leaving the UK/be taken on hols etc... as it is just for some work around the property.

Any info on possible rental outlets/ideas appreciated.

[alchemy] 09/4/2001 17:15

www.photobox.co.uk

they do this ( hire) and process the film to 35 mill plus standard

[haystack] 09/4/2001 17:03

There is a camera rental shop in the Brunswick centre near Russel Square. It is used by professionals. They may have up market digital camers. For instance, you can get digital backs for Nikon, Hasslebad, Canon etc. There are Digital cameras around that cost £5,000 upwards. It might be called Brunswick Cameras or similar. Try the Head office of Jessops, which will be in the west end somewhere. I think that there is another rental shop calld Leopald Cameras I think. They are near Russle Square also.

[softy2] 09/4/2001 15:58

Buy one from Argos and return it within 16 days and say that it wasn't suitable :-)

[mungoa] 09/4/2001 14:24

Anyone know where I can rent (not buy) a good digital camera in London/South East for a week or so??

Would appreciate any info/ideas.

Thanks in advance.