| Groups | Blog | Home |
sql server dts : Delete blank files via DTS
The following code works perfectly but now I want to do a little tweak at a different part of the DTS package. What I want to do is to delete files that are blank so they are not FTP'd to the remote server (a zero byte TXT file). I can see in my head what I need to do to the code, but I cannot figure it out. It seems like I would have to add some type of IF statement? This is the code that runs after the FTP part so the files do not get sent again: '********************************************************************** ' Visual Basic ActiveX Script '************************************************************************ Function Main() Dim objFSO Dim objFolder Dim objFile Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("C:\Websites\LocalUser\web-forms\aio\") For Each objFile In objFolder.Files objFile.Delete True Next Set objFile = Nothing Set objFolder = Nothing Set objFSO = Nothing Main = DTSTaskExecResult_Success End Function Any help would be greatly appreciated. Thanks! Mitch
Allan,
Yes...I want it to delete files that are 0 bytes so they do not get FTP'd to the remote server. Could you please show me an example of how the File object could be used? Thanks, Mitch [quoted text, click to view] "Allan Mitchell" <allan@no-spam.sqldts.com> wrote in message news:if8ch1p6iurqqfcoc10lb2kl5bjbfiltmc@4ax.com... > Are you asking how to check a file's size? > > The File object has a size property so as you loop over the files you > check the size and > delete as appropriate > > Allan > > > > On Wed, 31 Aug 2005 11:27:23 -0600, "mitch" <mitch_001@REMOVEyahoo.com> > wrote: > >>Hi, >> >>The following code works perfectly but now I want to do a little tweak at >>a >>different part of the DTS package. What I want to do is to delete files >>that >>are blank so they are not FTP'd to the remote server (a zero byte TXT >>file). >>I can see in my head what I need to do to the code, but I cannot figure it >>out. It seems like I would have to add some type of IF statement? >> >>This is the code that runs after the FTP part so the files do not get sent >>again: >> >>'********************************************************************** >>' Visual Basic ActiveX Script >>'************************************************************************ >> >>Function Main() >> >>Dim objFSO >>Dim objFolder >>Dim objFile >> >>Set objFSO = CreateObject("Scripting.FileSystemObject") >>Set objFolder = objFSO.GetFolder("C:\Websites\LocalUser\web-forms\aio\") >> >>For Each objFile In objFolder.Files >>objFile.Delete True >>Next >> >>Set objFile = Nothing >>Set objFolder = Nothing >>Set objFSO = Nothing >> >>Main = DTSTaskExecResult_Success >>End Function >> >> >> >>Any help would be greatly appreciated. >> >>Thanks! >> >>Mitch >> > > > Allan Mitchell MCSE,MCDBA, (Microsoft SQL Server MVP) > www.SQLDTS.com - The site for all your DTS needs. > www.SQLIS.com - You thought DTS was good. here we show you the new stuff. > www.konesans.com - Consultancy from the people who know
Are you asking how to check a file's size?
The File object has a size property so as you loop over the files you check the size and delete as appropriate Allan [quoted text, click to view] On Wed, 31 Aug 2005 11:27:23 -0600, "mitch" <mitch_001@REMOVEyahoo.com> wrote: >Hi, > >The following code works perfectly but now I want to do a little tweak at a >different part of the DTS package. What I want to do is to delete files that >are blank so they are not FTP'd to the remote server (a zero byte TXT file). >I can see in my head what I need to do to the code, but I cannot figure it >out. It seems like I would have to add some type of IF statement? > >This is the code that runs after the FTP part so the files do not get sent >again: > >'********************************************************************** >' Visual Basic ActiveX Script >'************************************************************************ > >Function Main() > >Dim objFSO >Dim objFolder >Dim objFile > >Set objFSO = CreateObject("Scripting.FileSystemObject") >Set objFolder = objFSO.GetFolder("C:\Websites\LocalUser\web-forms\aio\") > >For Each objFile In objFolder.Files >objFile.Delete True >Next > >Set objFile = Nothing >Set objFolder = Nothing >Set objFSO = Nothing > >Main = DTSTaskExecResult_Success >End Function > > > >Any help would be greatly appreciated. > >Thanks! > >Mitch > Allan Mitchell MCSE,MCDBA, (Microsoft SQL Server MVP) www.SQLDTS.com - The site for all your DTS needs. www.SQLIS.com - You thought DTS was good. here we show you the new stuff.
You very nearly had it. Something like this should work
For Each f in Fold.Files If f.Size = 0 THEN f.Delete End if Next Allan [quoted text, click to view] On Wed, 31 Aug 2005 15:59:39 -0600, "mitch" <mitch_001@REMOVEyahoo.com> wrote: >Allan, > >Yes...I want it to delete files that are 0 bytes so they do not get FTP'd to >the remote server. > >Could you please show me an example of how the File object could be used? > >Thanks, > >Mitch > > > >"Allan Mitchell" <allan@no-spam.sqldts.com> wrote in message >news:if8ch1p6iurqqfcoc10lb2kl5bjbfiltmc@4ax.com... >> Are you asking how to check a file's size? >> >> The File object has a size property so as you loop over the files you >> check the size and >> delete as appropriate >> >> Allan >> >> >> >> On Wed, 31 Aug 2005 11:27:23 -0600, "mitch" <mitch_001@REMOVEyahoo.com> >> wrote: >> >>>Hi, >>> >>>The following code works perfectly but now I want to do a little tweak at >>>a >>>different part of the DTS package. What I want to do is to delete files >>>that >>>are blank so they are not FTP'd to the remote server (a zero byte TXT >>>file). >>>I can see in my head what I need to do to the code, but I cannot figure it >>>out. It seems like I would have to add some type of IF statement? >>> >>>This is the code that runs after the FTP part so the files do not get sent >>>again: >>> >>>'********************************************************************** >>>' Visual Basic ActiveX Script >>>'************************************************************************ >>> >>>Function Main() >>> >>>Dim objFSO >>>Dim objFolder >>>Dim objFile >>> >>>Set objFSO = CreateObject("Scripting.FileSystemObject") >>>Set objFolder = objFSO.GetFolder("C:\Websites\LocalUser\web-forms\aio\") >>> >>>For Each objFile In objFolder.Files >>>objFile.Delete True >>>Next >>> >>>Set objFile = Nothing >>>Set objFolder = Nothing >>>Set objFSO = Nothing >>> >>>Main = DTSTaskExecResult_Success >>>End Function >>> >>> >>> >>>Any help would be greatly appreciated. >>> >>>Thanks! >>> >>>Mitch >>> >> >> >> Allan Mitchell MCSE,MCDBA, (Microsoft SQL Server MVP) >> www.SQLDTS.com - The site for all your DTS needs. >> www.SQLIS.com - You thought DTS was good. here we show you the new stuff. >> www.konesans.com - Consultancy from the people who know > Allan Mitchell MCSE,MCDBA, (Microsoft SQL Server MVP) www.SQLDTS.com - The site for all your DTS needs. www.SQLIS.com - You thought DTS was good. here we show you the new stuff.
Allan,
Thank you, it worked perfectly!! I figure I would post the code so others may use it: '********************************************************************** ' Visual Basic ActiveX Script '************************************************************************ Function Main() Dim objFSO Dim objFolder Dim objFile Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("C:\temp\test\") For Each objFile in objFolder.Files If objFile.Size = 0 THEN objFile.Delete True End if Next Set objFile = Nothing Set objFolder = Nothing Set objFSO = Nothing Main = DTSTaskExecResult_Success End Function MItch [quoted text, click to view] "Allan Mitchell" <allan@no-spam.sqldts.com> wrote in message news:7oach1d4cgok148q40fuu6qd6u5d5l1301@4ax.com... > You very nearly had it. Something like this should work > > For Each f in Fold.Files > If f.Size = 0 THEN > f.Delete > End if > Next > > Allan > On Wed, 31 Aug 2005 15:59:39 -0600, "mitch" <mitch_001@REMOVEyahoo.com> > wrote: > >>Allan, >> >>Yes...I want it to delete files that are 0 bytes so they do not get FTP'd >>to >>the remote server. >> >>Could you please show me an example of how the File object could be used? >> >>Thanks, >> >>Mitch >> >> >> >>"Allan Mitchell" <allan@no-spam.sqldts.com> wrote in message >>news:if8ch1p6iurqqfcoc10lb2kl5bjbfiltmc@4ax.com... >>> Are you asking how to check a file's size? >>> >>> The File object has a size property so as you loop over the files you >>> check the size and >>> delete as appropriate >>> >>> Allan >>> >>> >>> >>> On Wed, 31 Aug 2005 11:27:23 -0600, "mitch" <mitch_001@REMOVEyahoo.com> >>> wrote: >>> >>>>Hi, >>>> >>>>The following code works perfectly but now I want to do a little tweak >>>>at >>>>a >>>>different part of the DTS package. What I want to do is to delete files >>>>that >>>>are blank so they are not FTP'd to the remote server (a zero byte TXT >>>>file). >>>>I can see in my head what I need to do to the code, but I cannot figure >>>>it >>>>out. It seems like I would have to add some type of IF statement? >>>> >>>>This is the code that runs after the FTP part so the files do not get >>>>sent >>>>again: >>>> >>>>'********************************************************************** >>>>' Visual Basic ActiveX Script >>>>'************************************************************************ >>>> >>>>Function Main() >>>> >>>>Dim objFSO >>>>Dim objFolder >>>>Dim objFile >>>> >>>>Set objFSO = CreateObject("Scripting.FileSystemObject") >>>>Set objFolder = objFSO.GetFolder("C:\Websites\LocalUser\web-forms\aio\") >>>> >>>>For Each objFile In objFolder.Files >>>>objFile.Delete True >>>>Next >>>> >>>>Set objFile = Nothing >>>>Set objFolder = Nothing >>>>Set objFSO = Nothing >>>> >>>>Main = DTSTaskExecResult_Success >>>>End Function >>>> >>>> >>>> >>>>Any help would be greatly appreciated. >>>> >>>>Thanks! >>>> >>>>Mitch >>>> >>> >>> >>> Allan Mitchell MCSE,MCDBA, (Microsoft SQL Server MVP) >>> www.SQLDTS.com - The site for all your DTS needs. >>> www.SQLIS.com - You thought DTS was good. here we show you the new >>> stuff. >>> www.konesans.com - Consultancy from the people who know >> > > > Allan Mitchell MCSE,MCDBA, (Microsoft SQL Server MVP) > www.SQLDTS.com - The site for all your DTS needs. > www.SQLIS.com - You thought DTS was good. here we show you the new stuff. > www.konesans.com - Consultancy from the people who know
Don't see what you're looking for? Try a search.
|
June 2003
July 2003
August 2003
September 2003
October 2003
November 2003
December 2003
January 2004
February 2004
March 2004
April 2004
May 2004
June 2004
July 2004
August 2004
September 2004
October 2004
November 2004
December 2004
January 2005
February 2005
March 2005
April 2005
May 2005
June 2005
July 2005
August 2005
September 2005
October 2005
November 2005
December 2005
January 2006
February 2006
March 2006
April 2006
May 2006
June 2006
July 2006
August 2006
September 2006
October 2006
November 2006
December 2006
January 2007
February 2007
March 2007
April 2007
May 2007
June 2007
July 2007
August 2007
September 2007
October 2007
November 2007
| home · blog · groups | Questions? Comments? Contact the dn |