and you are attaching it to a folder object.
Try fso.fileexists
Thanks alot!!I still can't get the rename to work.the script copies a bunch of eml files from a bunch of source sub folders. in those sub folders the files have duplicate names but because they are in sub folders, it doesn't matter until they are being copied to the single target folder.So i want to rename the file(keeping the ext) when it encounters the same file in the target.Here is what i have so far-source="c:\fso"
target="c:\tom\"Set fso = CreateObject("Scripting.FileSystemObject")
set root=fso.getFolder(source)
set targ=fso.getFolder(target)dim full
do
if targ.files.count=0 then full=false
if full=false then call folderlist(root)
wscript.sleep 1000
loopsub folderlist(grp)
call filelist(grp)
if full then exit sub
for each fldr in grp.subFolders
set nf=fso.GetFolder(fldr.path)
call folderlist(nf)
set nf=nothing
next
end subsub filelist(grp)
for each file in grp.files
if targ.files.count>=999 then full=true:exit for
if lcase(fso.getextensionname(file)) = "eml" thenif targ.FileExists(file) then
file=file + cstr(int(Rnd * 1000))
end if
file.move target
end if
next
End sub
I always get the error- Object doesn't support this property or method:'targ.FileExists'
I'm kinda at a loss here.
thanks
On 12/8/05, Rich Milburn <[EMAIL PROTECTED] > wrote:Tom,
if lcase(fso.getextensionname(file)) = "eml" then file.move target
-----------------------------------------------------------------------
Rich Milburn
MCSE, Microsoft MVP - Directory Services
Sr Network Analyst, Field Platform Development
Applebee's International, Inc.
4551 W. 107th St
Overland Park, KS 66207
913-967-2819
----------------------------------------------------------------------
"I love the smell of red herrings in the morning" - anonymous
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] On Behalf Of Tom Kern
Sent: Thursday, December 08, 2005 6:33 AM
To: ActiveDir@mail.activedir.org
Subject: Re: [ActiveDir] _vbscript_ help(OT)
isn't there a way to do it without passing the full path?
i thought in my statement its implied that whatever "file" should be, it should look for an .eml ext.
thanks
On 12/8/05, Ken Schaefer < [EMAIL PROTECTED]> wrote:
getExtensionName() requires you to pass it a filespec (a filename, or path to a file)
If FSO.getExtensionName("c:\windows\clock.avi") = "avi" Then
' do foo
Else
' do bar
End If
Cheers
Ken
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] On Behalf Of Tom Kern
Sent: Thursday, 8 December 2005 1:48 PM
To: ActiveDir@mail.activedir.org
Subject: Re: [ActiveDir] _vbscript_ help(OT)
Oops, I guess i didn't check my code.
before i made any changes, i get "Wrong number of arguments or invalid propery assignment:'fso.getextensionname'.
sorry.
I wonder why that is?
On 12/7/05, Ken Schaefer < [EMAIL PROTECTED]> wrote:
At the moment you have this line which does the copy:
if lcase(fso.getextensionname) = "eml" then file.move target
So, instead of doing the copy, check to see if the file exists at the target,
and if not do the copy. If it does exist, rename the file at the source, then
do the copy.
If LCase(FSO.getExtensionName ) = "eml" Then
If objTarg.FileExists(strSourceFileName) Then
' Rename Source File
End If
' Now do the copy
End If
Cheers
Ken
________________________________________
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] ] On Behalf Of Tom Kern
Sent: Thursday, 8 December 2005 12:00 PM
To: ActiveDir@mail.activedir.org
Subject: Re: [ActiveDir] _vbscript_ help(OT)
Thanks.
My real problem is, I'm not sure where to put that in my exisiting script
without screwing things up....
Should that be a seperate sub?
Thanks again
On 12/7/05, Brian Desmond < [EMAIL PROTECTED]> wrote:
I don't see the need for a select case, but File.Exists would help.
What I would do is something like this
Dim moveName
moveName = CurrentNameOfFile
While TargetFolder.FileExists (currentNameofFile)
currentNameOfFile = currentNameofFile + Cstr(Int(Rnd * 10000))
Wend
'moveTheFile()
Rnd*1000 will get you some random # 0 - 1000 int makes it an integer and cstr
makes it a string.
Thanks,
Brian Desmond
[EMAIL PROTECTED]
c - 312.731.3132
________________________________________
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]] On Behalf Of Tom Kern
Sent: Wednesday, December 07, 2005 7:01 PM
To: activedirectory
Subject: [ActiveDir] _vbscript_ help(OT)
I have this _vbscript_ i wrote/stole tomove all files with an .eml extension
from many subdirs into a folder only if the folder is empty and only to move
999 at a time.
it works great except when it sees files with duplicate names it bombs out
while moving them.
i'd like it to rename the dup(maybe add some random #'s or characters to the
end) and continune movingall thefiles.
I think I have to use "FileExists" method and "Select...Case" but I'm not
sure how.
Was wondering if anyone could help me with this.
Here is the code-
source="H:\tempxtender"
target="c:\inetpub\mailroot\drop\"
Set fso = CreateObject("Scripting.FileSystemObject")
set root=fso.getFolder(source)
set targ=fso.getFolder(target)
dim full
do
if targ.files.count=0 then full=false
if full=false then call folderlist(root)
wscript.sleep 1000
loop
sub folderlist(grp)
call filelist(grp)
if full then exit sub
for each fldr in grp.subFolders
set nf=fso.GetFolder( fldr.path )
call folderlist(nf)
set nf=nothing
next
end sub
sub filelist(grp)
for each file in grp.files
if targ.files.count>=999 then full=true:exit for
if lcase(fso.getextensionname) = "eml" then file.move target
next
end sub
My aologies for bugging you guys with this OT.
Thanks
List info : http://www.activedir.org/List.aspx
List FAQ : http://www.activedir.org/ListFAQ.aspx
List archive: http://www.mail-archive.com/activedir%40mail.activedir.org/
-------APPLEBEE'S INTERNATIONAL, INC. CONFIDENTIALITY NOTICE-------
PRIVILEGED / CONFIDENTIAL INFORMATION may be contained in this message or any attachments. This information is strictly confidential and may be subject to attorney-client privilege. This message is intended only for the use of the named addressee. If you are not the intended recipient of this message, unauthorized forwarding, printing, copying, distribution, or using such information is strictly prohibited and may be unlawful. If you have received this in error, you should kindly notify the sender by reply e-mail and immediately destroy this message. Unauthorized interception of this e-mail is a violation of federal criminal law. Applebee's International, Inc. reserves the right to monitor and review the content of all messages sent to and from this e-mail address. Messages sent to or from this e-mail address may be stored on the Applebee's International, Inc. e-mail system.
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
"Be the change you want to see in the World"
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~