Jump to content

Copy i386 folder into C:/i386 ?


Recommended Posts


Try this, it a vbs script, it uses the copy dialog progress bar for the files to be copy.

Save As Copy_i386.vbs

Dim Act, CD, Fso, Folder, Shell, strCd

Set Act = CreateObject("Wscript.Shell")

Set Fso = CreateObject("Scripting.FileSystemObject")

set Shell = CreateObject("Shell.Application")

Function CD_Copy

Set CD = Fso.Drives

For Each strCd In CD

If strCd.DriveType = 4 Then

If Fso.FileExists(strCd & "\win51") Then

Act.Popup "This Is A XP CD, " & strCd ,5,"Confirm XP CD", 0 + 32

Copy_XP

Exit Function

Else

Act.Popup "This Is Not The Correct CD",5,"Incorrect CD", 0 + 32

End If

End If

Next

End Function

Function Copy_XP

If Not Fso.FolderExists("C:\i386")Then Fso.CreateFolder("C:\i386")End If

set Folder = Shell.NameSpace("C:\i386")

if not Folder is nothing then

Folder.CopyHere(strCd & "\i386\*.*")

set Shell = nothing

set Folder = nothing

End If

End Function

CD_Copy

Edited by gunsmokingman
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...