• VB函数大全(初学者的好帮手)

    对于可删除的驱动器,不需要将媒体插入其中,它就可以在Drives集合中显示出来。 下面的代码举例说明了如何获得 Drives 集合,以及如何用 For Each...Next 语句来访问该集合中的每个Drive: Sub ShowDriveList Dim fs, d, dc, s, n Set fs = CreateObject("Scripting.FileSystemObject") Set dc = fs.Drives For Each d in dc s = s & d.DriveLetter & " - " If d.DriveType = Remote Then n = d.ShareName Else n = d.VolumeName End If s = s & n & vbCrLf Next MsgBox s End Sub

    2009-12-23
    2
  • vb漂亮的闹钟及其源代码

    vb编写的漂亮的闹钟及其源代码;vb编写的漂亮的闹钟及其源代码,vb编写的漂亮的闹钟及其源代码

    2009-12-23
    17
  • 分享宗师

关注 私信
上传资源赚积分or赚钱