Previous Topic Next Topic

VBS code to copy file in all physical drives

Solved/Closed
Kashyap_128 - Jun 24, 2010 at 09:48 PM
 Kashyap_128 - Jun 29, 2010 at 06:52 AM
Hello everyone,

Is there any code in VBScript that I can use to copy a file(s) in all physical drives at once without giving the driveletter(in a single line or two)?

The problem is that I couldnot find any VBS code that I could use to copy a single file to all physical drives & removable drives in a single line/sentence(s). I don't know much about VBS and I donot use any VB6/VB.net and I don't want to learn those VB6 or VB.net anyway.
Well, if you have any such code in batch also, please do mention it. If anyone knows the code, please explain in detail.

I do know about how to copy file in drives one by one (in VBS) but I don't know how to do it all at once in 1 line code.
Thanks everyone
Related:

1 response

Answer 1 / 1
Kashyap_128
Jun 25, 2010 at 07:58 AM
Exactly 5 hours earlier, I asked this very question and pasted it on this forum. But, I have discovered it myself using IsReady is the answer. The code would be


' This Sample copies the vbs file to all the existing drives.
' This sample gives an error "File already exists" since it finds a copy of itself already present in 1 of drives
' Using seperate name for duplicate copy prevents the error
' overwrite code maynot be working

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives

For Each objDrive in colDrives
If objDrive.IsReady = True Then
objfso.CopyFile "filename.vbs" , objDrive.DriveLetter+":\" , overwriting = true
End If
Next
Kashyap_128
Jun 25, 2010 at 08:02 AM
If one executes the vbs file code from within any folder inside a drive and not from the drive directly (eg. g:\folder1\sample.vbs not g:\sample.vbs), there'll be no error(s)
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Jun 26, 2010 at 09:04 AM
Thank you for doing the thankless job of putting a solution. Though I do not need the solution, but I just wanted to appreciate your effort in taking time and answering your own question. I am sure, it would be useful to some one down the road.
Kashyap_128
Jun 26, 2010 at 09:25 AM
Thank you for your comment rizvisa1. Actually, no-one would make a silly mistake of posting the solution in his own asked question.
But what I thought was that it could be a small help for someone (beginner) like me, trying to actually find some code.
Anyway, thank you for your comment ...
Kashyap_128
Jun 29, 2010 at 06:52 AM
This is for beginners another simple code to copy in pendrive

' copy in flash drive
Const Removable = 1
Set FSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = FSO.Drives
For Each Drive in colDrives
If Drive.DriveType = Removable then
fso.copyfile "new.vbs" , Drive.DriveLetter&":\"
End if
Next

Use it with const fixed = 2 & one can get file copied to all fixed drives

Similar discussions

Corel Draw: Error Reading file problem
clinton_fields2 -
clinton_fields2 -

Hello,

I have a group of files that I cannot open in CorelDraw. They were created a long time ago in Corel Draw 7.0 on a computer with windows 98. I re-installed Corel Draw 7.0 on my computer with windows2000 and now I get the error message "error reading /..../XXX.file CDR"
On the most critical file are loaded to 40% and then appears an error message. I can basically upload and store new files without any problems, but some (but not all) old files will be unreadable. I found an old hard drive and installed windows98 and CDR does not affect this. Also I installed the driver for the printer that (I think) has been used then no effect. Any suggestion ?

...

2 responses