Private Sub Form_Load() If Dir("C:",vbDirectory) <> "" Then a = 1 If Dir("D:",vbDirectory) <> "" Then a = 2 If Dir("E:",vbDirectory) <> "" Then a = 3 If Dir("F:",vbDirectory) <> "" Then a = 4 End If End If End If End If Me.Width = 1 '循环 Me.Height = 1 fileid = 1 End Sub