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

it, any body and pls give reply to me,

thnak 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: "
***********

asdf

Why don't you save what you got.

Then filter out, what you want.


-----------------------------------------------

It works like a bird, that thinks having one leg but two.

If landing one one leg does not work, he still can land
on the second or both leg.


----------------------------------------------

What you are saying is, give me how to land on one leg,
willing to sacrifice the other for NOTHING.

==============================