Solved

Need help with a VBS to copy cofiguration files

Posted on 2011-02-17
21
492 Views
Last Modified: 2012-05-11
Hi,

I have been trying to modify this code in order to do the following (only for XPs):

1.) Check for the Quicktime

2.) If quicktime exists then check for the existance of a footprint if the footprint QUICKTIMEQTPlayer.dat exists do nothing

3.) If the footprint QUICKTIMEQTPlayer.dat does not exist then copy QTPlayerSession.xml on the following location:

C:\Documents and Settings\username\Application Data\Apple Computer\QuickTime

4.) Once the file is copied the create the footprint QUICKTIMEQTPlayer.dat somewhere that is only accessible by that parciular user name so that the next time the same user name logs on in the same computer the script does not run. But if the user goes to a different computer the script should run and the file has to be copied over.

The same process to copy the file QUICKTIMEQTP.dat to \Local Settings\Application Data\Apple Computer\QuickTime and then leave the footprint QuickTime.qtp in the users profofile like before.

Could someone help me out to finish the script.

Thank you.
Set objShell = CreateObject("WScript.Shell") 
Set objFSO = CreateObject("Scripting.FileSystemObject") 

strRegFileQT1 = "\\dc1\SYSVOL\domain.local\scripts\QTPlayerSession.xml"
strRegFileQT2 = "\\dc1\SYSVOL\domain.local\scripts\QuickTime.qtp"
strFileQT = "C:\Program Files\QuickTime\QuickTimePlayer.exe" 
strAppData = objShell.ExpandEnvironmentStrings("%APPDATA%") 
strRegFileQT1 = strAppData & "\QUICKTIMEQTPlayer.dat"
strRegFileQT2 = strAppData & "\QUICKTIMEQTP.dat"
strUserDir = objShell.ExpandEnvironmentStrings("%USERPROFILE%")

If objFSO.FileExists(strFileQT) Then 
		
	If objFSO.FileExists(strRegFileQT1) = False Then
		If Not objFSO.FolderExists(strUserDir & "\Application Data\Apple Computer\QuickTime\") Then
			objFSO.CreateFolder(strUserDir & "\Application Data\Apple Computer\QuickTime")
		End If
		
		objFSO.CopyFile strFileQT1, strUserDir & "\Apple Computer\QuickTime\"
		Set objFile = objFSO.CreateTextFile(strRegFileQT, True) 
		objFile.Close 
	End If
End If

If objFSO.FileExists(strFileIEPRO) Then 
		
	If objFSO.FileExists(strRegFileQT2) = False Then
		If Not objFSO.FolderExists(strAppData & "\Local Settings\Application Data\Apple Computer\QuickTime\") Then
			objFSO.CreateFolder(strAppData & "\Local Settings\Application Data\Apple Computer\QuickTime")
		End If
		
		objFSO.CopyFile strFileQT2, strUserDir & "\Apple Computer\QuickTime\"
		Set objFile = objFSO.CreateTextFile(strRegFileQT, True) 
		objFile.Close 
	End If
End If

Open in new window

0
Comment
Question by:llarava
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 11
  • 10
21 Comments
 
LVL 65

Expert Comment

by:RobSampson
ID: 34922856
Hi, you've defined strRegFileQT1 and strRegFileQT2 twice.  I've changed the second lot to strFootprintQT1 and strFootprintQT2.  I have also added the other bits. See if it works for you.

Regards,

Rob.
Set objShell = CreateObject("WScript.Shell") 
Set objFSO = CreateObject("Scripting.FileSystemObject") 

strFileQT = "C:\Program Files\QuickTime\QuickTimePlayer.exe" 
strRegFileQT1 = "\\dc1\SYSVOL\domain.local\scripts\QTPlayerSession.xml"
strFootprintQT1 = strAppData & "\QUICKTIMEQTPlayer.dat"
strRegFileQT2 = "\\dc1\SYSVOL\domain.local\scripts\QuickTime.qtp"
strFootprintQT2 = strAppData & "\QUICKTIMEQTP.dat"
strUserDir = objShell.ExpandEnvironmentStrings("%USERPROFILE%")

If objFSO.FileExists(strFileQT) = True Then
	If objFSO.FileExists(strFootprintQT1) = False Then
		If objFSO.FolderExists(strUserDir & "\Application Data\Apple Computer\QuickTime\") = False Then
			objFSO.CreateFolder(strUserDir & "\Application Data\Apple Computer\QuickTime")
		End If
		
		objFSO.CopyFile strFileQT1, strUserDir & "\Apple Computer\QuickTime\", True
		Set objFile = objFSO.CreateTextFile(strFootprintQT1, True) 
		objFile.Close 
	End If
	If objFSO.FileExists(strFootprintQT2) = False Then
		If Not objFSO.FolderExists(strUserDir & "\Local Settings\Application Data\Apple Computer\QuickTime\") Then
			objFSO.CreateFolder(strUserDir & "\Local Settings\Application Data\Apple Computer\QuickTime")
		End If
		
		objFSO.CopyFile strFileQT2, strUserDir & "\Local Settings\Application Data\Apple Computer\QuickTime\"
		Set objFile = objFSO.CreateTextFile(strFootprintQT2, True) 
		objFile.Close
	End If

End If

Open in new window

0
 

Author Comment

by:llarava
ID: 34943322
Hi Rob,

Thank you very much for your help. I think I was overthinking was I was trying to do.

I have changed the code in order to do what I need to acomplish:

1.) Check for an .exe file and if the file exists

2.) If the files does not exist then copy a configuration file to a destination and then create a footprint for on the %Userprofile%

3.) If the footprint exists do nothing

The problem that I have is that I would like to change C:\TEMP1 for the following path C:\documents and settings\user\application data\Apple Computer\Quicktime
(this is the path where on the of the config files is stored)

AND

C:\TEMP2 has to be changed by C:\documents and settings\user\localsettings\application data\Apple Computer\Quicktime
(this is the path where the other config file gets stored)

Can you advice with that?
Set objShell = CreateObject("WScript.Shell") 
Set objFSO = CreateObject("Scripting.FileSystemObject") 

strFileQT = "C:\Program Files\QuickTime\QuickTimePlayer.exe" 
strRegFileQT1 = "\\dc1\SYSVOL\domain.local\scripts\QTPlayerSession.xml"
strFootprintQT1 = strAppData & "\QUICKTIMEQTPlayer.dat"
strRegFileQT2 = "\\dc1\SYSVOL\domain.local\scripts\QuickTime.qtp"
strFootprintQT2 = strAppData & "\QUICKTIMEQTP.dat"
strUserDir = objShell.ExpandEnvironmentStrings("%USERPROFILE%")
strAppData = objShell.ExpandEnvironmentStrings("%APPDATA%") 

If objFSO.FileExists(strFileQT) = True Then
	If objFSO.FileExists(strFootprintQT1) = False Then
		  objFSO.CopyFile "\\dc1\SYSVOL\domain.Local\scripts\QTPlayerSession.xml" , "C:\TEMP1" 
		  Set objFile = objFSO.CreateTextFile(strFootprintQT1, True) 
                  objFile.Close 
End If

If objFSO.FileExists(strFileQT) then

  If objFSO.FileExists(strFootprintQT2) = False Then
  objFSO.CopyFile "\\dc1\SYSVOL\Syracuse.Local\scripts\QUICKTIMEQTP.dat" , "C:\TEMP2" 
  Set objFile = objFSO.CreateTextFile(QUICKTIMEQTP.dat, True) 
  objFile.Close  
  End if 

End If 
Else 
End if

Open in new window

0
 

Author Comment

by:llarava
ID: 34943572
This is an updated version of the code the one posted before wasn't quite right.

Same question as before. Also with Set objFile = objFSO.CreateTextFile where is the footprint being created? I would like to create the file within the user profile since the configuration files have to be changed by user basis and not computer.

Thank you!
Set objShell = CreateObject("WScript.Shell") 
Set objFSO = CreateObject("Scripting.FileSystemObject") 

strFileQT = "C:\Program Files\QuickTime\QuickTimePlayer.exe" 
strRegFileQT1 = "\\dc1\SYSVOL\domain.local\scripts\QTPlayerSession.xml"
strFootprintQT1 = strAppData & "\QUICKTIMEQTPlayer.dat"
strRegFileQT2 = "\\dc1\SYSVOL\domain.local\scripts\QuickTime.qtp"
strFootprintQT2 = strAppData & "\QUICKTIMEQTP.dat"
strUserDir = objShell.ExpandEnvironmentStrings("%USERPROFILE%")
strAppData = objShell.ExpandEnvironmentStrings("%APPDATA%")


If objFSO.FileExists(strFileQT) = True Then
	If objFSO.FileExists(strFootprintQT1) = False Then
		  objFSO.CopyFile "\\dc1\SYSVOL\domain.Local\scripts\QTPlayerSession.xml" , "C:\TEMP\" 
		  Set objFile = objFSO.CreateTextFile(strFootprintQT1, True) 
                  objFile.Close 
		  
End If
 


If objFSO.FileExists(strFileQT) then

  If objFSO.FileExists(strFootprintQT2) = False Then
  objFSO.CopyFile "\\dc1\SYSVOL\domain.Local\scripts\QuickTime.qtp" , "C:\TEMP\" 
  Set objFile = objFSO.CreateTextFile(strFootprintQT2, True) 
  objFile.Close  
  End if 

End If 

Else 

End If

Open in new window

0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
LVL 65

Expert Comment

by:RobSampson
ID: 34947779
Sorry, I don't follow what you want to change.  The footprint files are being created in
C:\Documents and Settings\<username>\Application Data\QUICKTIMEQTPlayer.dat"
and
C:\Documents and Settings\<username>\Application Data\QUICKTIMEQTP.dat"

Regards,

Rob.
0
 

Author Comment

by:llarava
ID: 34948155
This file QTPlayerSession.xml needs to be copied to the following path C:\documents and settings\user\application data\Apple Computer\Quicktime - This has to happen for every user that logs on.

The code in the script copies the file to c:\temp and needs to be changed to the path above. But I am not sure how to acomplish this.

objFSO.CopyFile "\\dc1\SYSVOL\domain.Local\scripts\QTPlayerSession.xml" , "C:\TEMP\"

AND  

The other config file QTPlayerSession.xml has to be copied to C:\documents and settings\user\localsettings\application data\Apple Computer\Quicktime

objFSO.CopyFile "\\dc1\SYSVOL\domain.Local\scripts\QTPlayerSession.xml" , "C:\TEMP\"

For both configuration files I have used C:\TEMP in order to test but they need to be changed to the 2 paths that I have specified before.

Finally the footprint has to be placed in the userprofile so that it runs per user basis.

I hope that I have been able to clarify the question.

Thank you again.



0
 
LVL 65

Expert Comment

by:RobSampson
ID: 34948243
Hi, I think this should cover it.

Regards,

Rob.
Set objShell = CreateObject("WScript.Shell") 
Set objFSO = CreateObject("Scripting.FileSystemObject") 

strFileQT = "C:\Program Files\QuickTime\QuickTimePlayer.exe" 
strRegFileQT1 = "\\dc1\SYSVOL\domain.local\scripts\QTPlayerSession.xml"
strFootprintQT1 = strAppData & "\QUICKTIMEQTPlayer.dat"
strRegFileQT2 = "\\dc1\SYSVOL\domain.local\scripts\QuickTime.qtp"
strFootprintQT2 = strAppData & "\QUICKTIMEQTP.dat"
strUserDir = objShell.ExpandEnvironmentStrings("%USERPROFILE%")
strAppData = objShell.ExpandEnvironmentStrings("%APPDATA%")


If objFSO.FileExists(strFileQT) = True Then
	If objFSO.FileExists(strFootprintQT1) = False Then
		objFSO.CopyFile strRegFileQT1, strAppData & "\Apple Computer\QuickTime\"
		Set objFile = objFSO.CreateTextFile(strFootprintQT1, True) 
		objFile.Close 
	End If

	If objFSO.FileExists(strFootprintQT2) = False Then
		objFSO.CopyFile strRegFile2, strUserDir & "\Local Settings\Application Data\Apple Computer\QuickTime\"
		Set objFile = objFSO.CreateTextFile(strFootprintQT2, True) 
		objFile.Close  
	End if 
End If

Open in new window

0
 

Author Comment

by:llarava
ID: 34948423
Rob,

For the time being we just work with XPs in production but how would you make the script compatible with Win7?
0
 
LVL 65

Expert Comment

by:RobSampson
ID: 34948458
Depends on the program paths....I guess you could change
strFileQT = "C:\Program Files\QuickTime\QuickTimePlayer.exe"

to
strFileQT = objShell.ExpandEnvironmentStrings("%PROGRAMFILES") & "\QuickTime\QuickTimePlayer.exe"

etc, to use more universal paths....

Rob.
0
 

Author Comment

by:llarava
ID: 34948673
Would these remain the same?

objFSO.CopyFile strRegFileQT1, strAppData & "\Apple Computer\QuickTime\"

objFSO.CopyFile strRegFile2, strUserDir & "\Local Settings\Application Data\Apple Computer\QuickTime\"

since user profile access has been changed for vista/7 to C:\Users\etc...

0
 
LVL 65

Expert Comment

by:RobSampson
ID: 34948740
I think for Windows 7, they would be:
objFSO.CopyFile strRegFileQT1, strAppData & "\Apple Computer\QuickTime\"
(which would point to C:\Users\<username>\AppData\Roaming\Apple Computer\QuickTime)

objFSO.CopyFile strRegFile2, strUserDir & "\AppData\Local\Apple Computer\QuickTime\"
(which would point to C:\Users\<username>\AppData\Local\Apple Computer\QuickTime)

You could determine whether %userprofile% included C:\Users to know whether it's Windows 7 or not.

Regards,

Rob.
Set objShell = CreateObject("WScript.Shell") 
Set objFSO = CreateObject("Scripting.FileSystemObject") 

strUserDir = objShell.ExpandEnvironmentStrings("%USERPROFILE%")
strAppData = objShell.ExpandEnvironmentStrings("%APPDATA%")
strRegFileQT1 = "\\dc1\SYSVOL\domain.local\scripts\QTPlayerSession.xml"
strRegFileQT2 = "\\dc1\SYSVOL\domain.local\scripts\QuickTime.qtp"
strFootprintQT1 = strAppData & "\QUICKTIMEQTPlayer.dat"
strFootprintQT2 = strAppData & "\QUICKTIMEQTP.dat"

If Left(LCase(strUserDir), 9) = "c:\users\" Then
	strFileQT = "C:\Program Files (x86)\QuickTime\QuickTimePlayer.exe" 
Else
	strFileQT = "C:\Program Files\QuickTime\QuickTimePlayer.exe" 
End If

If objFSO.FileExists(strFileQT) = True Then
	If objFSO.FileExists(strFootprintQT1) = False Then
		objFSO.CopyFile strRegFileQT1, strAppData & "\Apple Computer\QuickTime\"
		Set objFile = objFSO.CreateTextFile(strFootprintQT1, True) 
		objFile.Close 
	End If

	If objFSO.FileExists(strFootprintQT2) = False Then
		If Left(LCase(strUserDir), 9) = "c:\users\" Then
			objFSO.CopyFile strRegFileQT1, strAppData & "\Apple Computer\QuickTime\"
		Else
			objFSO.CopyFile strRegFile2, strUserDir & "\AppData\Local\Apple Computer\QuickTime\"
		End If
		Set objFile = objFSO.CreateTextFile(strFootprintQT2, True) 
		objFile.Close  
	End If 
End If

Open in new window

0
 

Author Comment

by:llarava
ID: 34951687
Rob,

I have noticed that the code creates the footprint on the root C: drive. The config files have to be copied per user basis. Is there any way to place the footprint in the users %APPDATA% within a folder named FOOTPRINT that way the script will be run for every new user and not per computer.

Thank you.
Set objShell = CreateObject("WScript.Shell") 
Set objFSO = CreateObject("Scripting.FileSystemObject") 

strFileQT = "C:\Program Files\QuickTime\QuickTimePlayer.exe" 
strRegFileQT1 = "\\dc1\SYSVOL\domain.local\scripts\QTPlayerSession.xml"
strFootprintQT1 = strAppData & "\QUICKTIMEQTPlayer.dat"
strRegFileQT2 = "\\dc1\SYSVOL\domain.local\scripts\QuickTime.qtp"
strFootprintQT2 = strAppData & "\QUICKTIMEQTP.dat"
strUserDir = objShell.ExpandEnvironmentStrings("%USERPROFILE%")
strAppData = objShell.ExpandEnvironmentStrings("%APPDATA%")


If objFSO.FileExists(strFileQT) = True Then
	If objFSO.FileExists(strFootprintQT1) = False Then
		objFSO.CopyFile strRegFileQT1, strAppData & "\Apple Computer\QuickTime\"
		Set objFile = objFSO.CreateTextFile(strFootprintQT1, True) 
		objFile.Close 
	End If

	If objFSO.FileExists(strFootprintQT2) = False Then
		objFSO.CopyFile strRegFileQT2, strUserDir & "\Local Settings\Application Data\Apple Computer\QuickTime\"
		Set objFile = objFSO.CreateTextFile(strFootprintQT2, True) 
		objFile.Close  
	End if 
End If

Open in new window

0
 
LVL 65

Expert Comment

by:RobSampson
ID: 34956319
Hi, it will create the footprint on the root of C because you have lines 9 and 10 under the strFootprintQT1 and strFootprintQT2 lines.  You will notice in my latest code I put the strUserDir and strAppData lines at the top, so they are defined first.  Then the footprint files will pick up the correct location.

Regards,

Rob.
0
 

Author Comment

by:llarava
ID: 34957700
Hi Rob,

I have tried to code that you provided at ID:34948740. I understand that this is the one that you are indicating on your last post.

When launching the script I am getting the following error message

Line 28
Char 4

Invalid procedure call or argument
0
 
LVL 65

Expert Comment

by:RobSampson
ID: 34957725
Ooops, change this:
                  objFSO.CopyFile strRegFile2, strUserDir & "\AppData\Local\Apple Computer\QuickTime\"

to this
                  objFSO.CopyFile strRegFileQT2, strUserDir & "\AppData\Local\Apple Computer\QuickTime\"

I missed the QT....

Rob.
0
 

Author Comment

by:llarava
ID: 34957778
Yes you are right. Rob is there any way to place the footprints in the same place %APPDATA% but in a folder named LOGS.
0
 
LVL 65

Expert Comment

by:RobSampson
ID: 34957830
Try this.  I've added a line above the .CopyFile lines to create the Logs folder.

Regards,

Rob.
Set objShell = CreateObject("WScript.Shell") 
Set objFSO = CreateObject("Scripting.FileSystemObject") 

strUserDir = objShell.ExpandEnvironmentStrings("%USERPROFILE%")
strAppData = objShell.ExpandEnvironmentStrings("%APPDATA%")
strRegFileQT1 = "\\dc1\SYSVOL\domain.local\scripts\QTPlayerSession.xml"
strRegFileQT2 = "\\dc1\SYSVOL\domain.local\scripts\QuickTime.qtp"
strFootprintQT1 = strAppData & "\Logs\QUICKTIMEQTPlayer.dat"
strFootprintQT2 = strAppData & "\Logs\QUICKTIMEQTP.dat"

If Left(LCase(strUserDir), 9) = "c:\users\" Then
	strFileQT = "C:\Program Files (x86)\QuickTime\QuickTimePlayer.exe" 
Else
	strFileQT = "C:\Program Files\QuickTime\QuickTimePlayer.exe" 
End If

If objFSO.FileExists(strFileQT) = True Then
	If objFSO.FileExists(strFootprintQT1) = False Then
		objFSO.CopyFile strRegFileQT1, strAppData & "\Apple Computer\QuickTime\"
		If objFSO.FolderExists(Left(strFootprintQT1, InStrRev(strFootprintQT1, "\"))) = False Then objFSO.CreateFolder Left(strFootprintQT1, InStrRev(strFootprintQT1, "\"))
		Set objFile = objFSO.CreateTextFile(strFootprintQT1, True) 
		objFile.Close 
	End If

	If objFSO.FileExists(strFootprintQT2) = False Then
		If Left(LCase(strUserDir), 9) = "c:\users\" Then
			objFSO.CopyFile strRegFileQT2, strUserDir & "\Local Settings\Application Data\Apple Computer\QuickTime\"
		Else
			objFSO.CopyFile strRegFileQT2, strUserDir & "\AppData\Local\Apple Computer\QuickTime\"
		End If
		If objFSO.FolderExists(Left(strFootprintQT2, InStrRev(strFootprintQT2, "\"))) = False Then objFSO.CreateFolder Left(strFootprintQT2, InStrRev(strFootprintQT2, "\"))
		Set objFile = objFSO.CreateTextFile(strFootprintQT2, True) 
		objFile.Close  
	End If 
End If

Open in new window

0
 

Author Comment

by:llarava
ID: 34961405
I don't understand why but I am getting the following error message. I have checked and the path is fine...

objFSO.CopyFile strRegFileQT1, strAppData & "\Apple Computer\QuickTime\"

Microsoft VBScript runtime error (19, 3) : Path not found

The same code is used at ID:34948243 and the script works fine.

0
 

Author Comment

by:llarava
ID: 34961513
Please diregard the last post it was a typo on my end.

The code works now however both configuration files QTPlayerSession.xml and QuickTime.qtp are copied on the same location C:\Documents and Settings\username\Application Data\Apple Computer\QuickTime

QuickTime.qtp has to be copied to C:\Documents and Settings\user\Local Settings\Application Data\Apple Computer\QuickTime

QTPlayerSession.xml has to be copied to C:\Documents and Settings\user\Application Data\Apple Computer\QuickTime

Thank you very much for the follow up.
0
 
LVL 65

Accepted Solution

by:
RobSampson earned 500 total points
ID: 34965778
I think I had the file location backwards....try this.

Regards,

Rob.
Set objShell = CreateObject("WScript.Shell") 
Set objFSO = CreateObject("Scripting.FileSystemObject") 

strUserDir = objShell.ExpandEnvironmentStrings("%USERPROFILE%")
strAppData = objShell.ExpandEnvironmentStrings("%APPDATA%")
strRegFileQT1 = "\\dc1\SYSVOL\domain.local\scripts\QTPlayerSession.xml"
strRegFileQT2 = "\\dc1\SYSVOL\domain.local\scripts\QuickTime.qtp"
strFootprintQT1 = strAppData & "\Logs\QUICKTIMEQTPlayer.dat"
strFootprintQT2 = strAppData & "\Logs\QUICKTIMEQTP.dat"

If Left(LCase(strUserDir), 9) = "c:\users\" Then
	strFileQT = "C:\Program Files (x86)\QuickTime\QuickTimePlayer.exe" 
Else
	strFileQT = "C:\Program Files\QuickTime\QuickTimePlayer.exe" 
End If

If objFSO.FileExists(strFileQT) = True Then
	If objFSO.FileExists(strFootprintQT1) = False Then
		MsgBox "Copying" & VbCrLf & strRegFileQT1 & VbCrLf & "to" & VbCrLf & strAppData & "\Apple Computer\QuickTime\"
		objFSO.CopyFile strRegFileQT1, strAppData & "\Apple Computer\QuickTime\"
		If objFSO.FolderExists(Left(strFootprintQT1, InStrRev(strFootprintQT1, "\"))) = False Then objFSO.CreateFolder Left(strFootprintQT1, InStrRev(strFootprintQT1, "\"))
		Set objFile = objFSO.CreateTextFile(strFootprintQT1, True) 
		objFile.Close 
	End If

	If objFSO.FileExists(strFootprintQT2) = False Then
		If Left(LCase(strUserDir), 9) = "c:\users\" Then
			MsgBox "Copying" & VbCrLf & strRegFileQT2 & VbCrLf & "to" & VbCrLf & strUserDir & "\AppData\Local\Apple Computer\QuickTime\"
			objFSO.CopyFile strRegFileQT2, strUserDir & "\AppData\Local\Apple Computer\QuickTime\"
		Else
			MsgBox "Copying" & VbCrLf & strRegFileQT2 & VbCrLf & "to" & VbCrLf & strUserDir & "\Local Settings\Application Data\Apple Computer\QuickTime\"
			objFSO.CopyFile strRegFileQT2, strUserDir & "\Local Settings\Application Data\Apple Computer\QuickTime\"
		End If
		If objFSO.FolderExists(Left(strFootprintQT2, InStrRev(strFootprintQT2, "\"))) = False Then objFSO.CreateFolder Left(strFootprintQT2, InStrRev(strFootprintQT2, "\"))
		Set objFile = objFSO.CreateTextFile(strFootprintQT2, True) 
		objFile.Close  
	End If 
End If

Open in new window

0
 

Author Closing Comment

by:llarava
ID: 34987578
ROB as always you are the best. Just amazing.
0
 
LVL 65

Expert Comment

by:RobSampson
ID: 34989346
Thanks for the grade.  Sorry it took a while for me to get it right.

Regards,

Rob.
0

Featured Post

[Live Webinar] The Cloud Skills Gap

As Cloud technologies come of age, business leaders grapple with the impact it has on their team's skills and the gap associated with the use of a cloud platform.

Join experts from 451 Research and Concerto Cloud Services on July 27th where we will examine fact and fiction.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Whether you've completed a degree in computer sciences or you're a self-taught programmer, writing your first lines of code in the real world is always a challenge. Here are some of the most common pitfalls for new programmers.
In this post we will learn different types of Android Layout and some basics of an Android App.
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…
Simple Linear Regression

623 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question