Smart questions
Smart answers
Smart people
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Member Login
Remember Me
Forgot Password?
Join Us!

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips now!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
Join Tek-Tips
*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

LINK TO THIS FORUM!

Add Stickiness To Your Site By Linking To This Professionally Managed Technical Forum.
Just copy and paste the
code below into your site.

Tek-Tips LinkedIn® Group

Partner With Us!

"Best Of Breed" Forums Add Stickiness To Your Site
Partner Button
(Download This Button Today!)

Feedback

"...with companys cutting back on training, lack of true support by makers of software, the forums are a great tool in your cyber-toolbox...."
More...

Geography

Where in the world do Tek-Tips members come from?
Click Here To Find Out!

Tek-Tips Shirts!

Get Tek-Tips Swag
Get your
Tek-Tips Forums
SWAG here!
Home > Forums > Programmers > Languages > VBScript Forum

renaming folder from db objects

thread329-1685852
Read More Threads Like This One
egr4wig (MIS)
14 Jun 12 18:02
Hi all,

Any help would be greatly appreciated, but I am trying to rename a folder using a couple of DB object variables and I'm having a tough go at it. I have tried to convert the objects to strings, but have found out that that doesn't really work.

My object variables are:
Dim Value1: Set Value1 = CreateObject("ADODB.Recordset")
Dim Value2: Set Value2 = CreateObject("ADODB.Recordset")
Set Value1 = connection.Execute("SELECT MAX(RUN_NUMBER)...")
Set Value2 = connection.Execute("SELECT RUN_CLIENTID...")

My object folder is the newest folder in:
Dim objFolder: Set objFolder = objFSO.GetFolder("C:\Program Files\Doc_Finder\Docs")

I find the newest with the following:
For Each objFolder in colFolders
If objFolder.DateCreated > dDate Then
dDate = objFolder.DateCreated
strNewestFolder = objFolder
End If
Next

WScript.Echo strNewestFolder

and finally I'm trying to rename the newest folder with the following statement:
fso.MoveFile objFolder & "\" & strNewestFolder, objFolder & "\" & "CE_" & Value2 & "_" & Value1 & "_PROD_ATTACHMENTS"

As you can imagine I am getting a 'Type mismatch error' code: 800A000D

Any help would be greatly appreciated!
Thanks,
egr4wig
guitarzan (Programmer)
15 Jun 12 0:30
I'm not able to test, so I don't know that all the code below is correct, but this should at least get you towards working code

CODE

Dim rs, Value1, Value2
Set rs = connection.Execute("SELECT MAX(RUN_NUMBER)...")
Value1 = rs("field_name")

Set rs = connection.Execute("SELECT RUN_CLIENTID...")
Value2 = rs("field_name")

'replace "field_name" with the correct field you want from in the query

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")

Dim objFolder, objSubFolder
Set objFolder = objFSO.GetFolder("C:\Program Files\Doc_Finder\Docs")

For Each objSubFolder in objFolder.Subfolders
If objSubFolder.DateCreated > dDate Then
dDate = objSubFolder.DateCreated
strNewestFolder = objSubFolder.Path
End If
Next

And to rename the folder, I believe this will work:

CODE

objFSO.GetFolder(strNewestFolder).Name = "CE_" & Value2 & "_" & Value1 & "_PROD_ATTACHMENTS"
egr4wig (MIS)
15 Jun 12 10:20
Thanks for the help guitarzan. It was throwing some errors while trying to write to a log so I just too that part out.
Thanks again!
egr4wig (MIS)
15 Jun 12 12:56
Hi guitarzan,

I was hoping you'd be able to help me with one more thing. I am trying to zip the folder, but I'm getting an ActiveX component error with the code:

'Zip the folder
Dim FolderToZip
Set FolderToZip = CreateObject("N:\Client\Doc_Extractor\Docs\" & "CE_" & Value2 & "_" & Value1 & "_PROD_ATTACHMENTS")
Dim zipFile
Set zipFile = CreateObject("N:\Client\Doc_Extractor\Docs\" & "CE_" & Value2 & "_" & Value1 & "_PROD_ATTACHMENTS.zip")

'Dim sa:
set sa=CreateObject("Shell.Application")
'Dim zip:
Set zip=sa.NameSpace(zipFile)
'Dim Fol:
Set Fol=sa.NameSpace(FolderToZip)
zip.CopyHere(Fol.Items)
WScript.Sleep 2000 ' increase this if the folder is large

Any help would be greatly appreciated.
PHV (MIS)
15 Jun 12 12:59
Replace this:
Set FolderToZip = CreateObject("N:\Client\Doc_Extractor\Docs\" & "CE_" & Value2 & "_" & Value1 & "_PROD_ATTACHMENTS")
Set zipFile = CreateObject("N:\Client\Doc_Extractor\Docs\" & "CE_" & Value2 & "_" & Value1 & "_PROD_ATTACHMENTS.zip")
with this:
FolderToZip = "N:\Client\Doc_Extractor\Docs\" & "CE_" & Value2 & "_" & Value1 & "_PROD_ATTACHMENTS"
zipFile = FolderToZip & ".zip"

Hope This Helps, PH.
FAQ219-2884: How Do I Get Great Answers To my Tek-Tips Questions?
FAQ181-2886: How can I maximize my chances of getting an answer?

egr4wig (MIS)
15 Jun 12 13:20
Hi PHV,

I'm getting a error from the zip.CopyHere(Fol.Items) line stating:
Object required
Code 800A01A8

Any ideas?
PHV (MIS)
15 Jun 12 17:22
I'd try this:
zip.CopyHere Fol.Items
or this:
Call zip.CopyHere(Fol.Items)

Hope This Helps, PH.
FAQ219-2884: How Do I Get Great Answers To my Tek-Tips Questions?
FAQ181-2886: How can I maximize my chances of getting an answer?

egr4wig (MIS)
15 Jun 12 17:40
Mmmm, neither of those seem to produce a different result. Still getting the object required error. Would there be any other methods I should try?
PHV (MIS)
15 Jun 12 17:54
Does the zip file exists prior this ?
Set zip=sa.NameSpace(zipFile)

Hope This Helps, PH.
FAQ219-2884: How Do I Get Great Answers To my Tek-Tips Questions?
FAQ181-2886: How can I maximize my chances of getting an answer?

egr4wig (MIS)
15 Jun 12 17:58
I am trying to zip a folder, but yes the variable 'zipFile' is declared before hand. I have commented out the set statement as per previous instructions:

CODE --> vbscript

'Zip the folder
Dim FolderToZip
'Set FolderToZip = CreateObject("N:\Alternative_Service_Concepts\Doc_Extractor\Docs\" & "CE_" & Value2 & "_" & Value1 & "_PROD_ATTACHMENTS")
FolderToZip = "N:\Alternative_Service_Concepts\Doc_Extractor\Docs\" & "CE_" & Value2 & "_" & Value1 & "_PROD_ATTACHMENTS" & ".zip"
Dim zipFile
'Set zipFile = CreateObject("N:\Alternative_Service_Concepts\Doc_Extractor\Docs\" & "CE_" & Value2 & "_" & Value1 & "_PROD_ATTACHMENTS.zip")

Dim sa:
set sa=CreateObject("Shell.Application")
Dim zip:
Set zip=sa.NameSpace(zipFile)
Dim Fol:
Set Fol=sa.NameSpace(FolderToZip)
'zip.CopyHere(Fol.Items)
'zip.CopyHere Fol.Items
Call zip.CopyHere(Fol.Items)
'zip.CopyHere("Fol")


Thanks for your continued help! I really do appreciate it.
guitarzan (Programmer)
15 Jun 12 20:12
egr4wig:
It looks like you didn't implement PHV's advice earlier (to properly assign values to FolderToZip and zipFile). But in addition, some searches indicate that creating a zip file natively requires more steps than you are doing.

If you still have troubles, check this thread; includes some ideas to zip files natively in vbscript as well as mentioning 7Zip, a free program that may work better for you.
thread329-1532406: Vbscript to zip files in a folder
Read More Threads Like This One

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Back To Forum

Back To VBScript

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close