ramanae©š�§b±ë¬²*²hœ®‹(~×(

copying all files,but i want exclude some files and folders pls help me any
bodu know

Thank you
Ramana

************************************************** *********
Dim objNetwork,FSO,net,Wshnetwork
Dim strDriveLetter, strRemotePath, strUser, strPassword, strProfile
strDriveLetter = "Z:"
Set objNetwork = WScript.CreateObject("WScript.Network")


objnetwork.MapNetworkDrive "Z:","\\IPADRESS\c$","True","username","passwo rd"

set fso = wscript.CreateObject("Scripting.FileSystemObject")
set folder = fso.GetFolder ("Z:\xyz")

'exclude txt files
for each file in folder.Files
if fso.GetExtensionName (file.Path) = ".txt" then
WScript.Echo file.Path & " excluded"
end if
FSO.Copyfile "Z:\xyz\*.*", "c:\abc\"

'exclude test.txt file
if file.Name = "*.txt" then
WScript.Echo file.Path & " excluded"
end if
next
objnetwork.RemoveNetworkDrive "Z:"
WScript.Echo " Drive Closed:: check: "
************************************************** *********

mckirahan

[snip]

Looking at one of your many previous posts on this topic,
it looks like "urkec" wrote it. Why so many new posts?

Also, "exclude" is the word, not "eclude".

What files do you want to exclude? Are they in a list?

ramanae©š�§b±ë¬²*²hœ®‹(~×(

sorry for distrubing to giving no of mails
i want copy files from remote system in that "c:\newos\" in this so many
files like .exe and .txt and .c and .C++ but i want exclude .txt files
Thank you
ramana

ramanae©š�§b±ë¬²*²hœ®‹(~×(

sorry for distrubing to giving no of mails
i want copy files from remote system in that "c:\XYZ\" in this so many
files like .exe and .txt and .c and .C++ but i want exclude .txt files


Dim objNetwork,FSO,net,Wshnetwork
Dim strDriveLetter, strRemotePath, strUser, strPassword, strProfile
strDriveLetter = "Z:"
Set objNetwork = WScript.CreateObject("WScript.Network")


objnetwork.MapNetworkDrive "Z:","\\IPADRESS\c$","True","username","passwo rd"

set fso = wscript.CreateObject("Scripting.FileSystemObject")
set folder = fso.GetFolder ("Z:\xyz")

'exclude txt files
for each file in folder.Files
if fso.GetExtensionName (file.Path) = ".txt" then
WScript.Echo file.Path & " excluded"
end if
FSO.Copyfile "Z:\xyz\*.*", "c:\abc\"

'exclude test.txt file
if file.Name = "*.txt" then
WScript.Echo file.Path & " excluded"
end if
next
objnetwork.RemoveNetworkDrive "Z:"
WScript.Echo " Drive Closed:: check: "
********************************

Thank you
ramana
"McKirahan" wrote:

mckirahan

[snip]

Perhaps this snippet will help:

For Each file In folder.Files
If fso.GetExtensionName(file.Path) = "txt" Then
WScript.Echo file.Path & " excluded"
Else
fso.Copyfile file.Path, "c:\abc\"
WScript.Echo file.Path & " copied"
End If
Next