懂VB的来看看，关于自动运行

来源：百度知道 编辑：UC知道 时间：2024/06/24 19:14:41
老人家喜欢看电影，经常借来的光盘把视频拷贝到电脑中，但眼睛不方便，我想用VB编写个程序，该程序检测到光驱有光盘后，会自动把光盘上所有内容拷贝到硬盘上，比如在D盘的movie目录下。请问如何编写？
注：可不用考虑检测光盘到底是什么内容才进行拷贝，因为老人家放的光盘都是电影的。。。。
替老人家多谢各位了

'该程序自动按日期创建目录 并把文件复制到文件夹
'如果该光盘复制完后 下次再插入就不会再复制了
Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Const UrDrivePath = "E:\movie\" '你要复制到的文件夹
Public Const Cdrom = "G" '光驱盘符

'改程序自动按日期创建目录 并把文件复制到文件夹

Sub main()
Dim fso As New FileSystemObject
Dim drv As Drive
Dim i As Long
Dim DSn() As String
i = 0
If fso.FileExists("c:\diskSN.log") = False Then
Open "C:\diskSN.log" For Output As #1
Close #1
End If
Do While 1
DoEvents
Set drv = fso.GetDrive(Cdrom)

Open "C:\diskSN.log" For Input As #1
Do While Not EOF(1)

Line Input #1, DSn(i)