用Socket问题。请大家帮帮忙，再线等

Private Sub MnuFtpProperty_Click()
Dim nCHMODint As Integer, ntFile As Integer, nCHMODBool As Boolean, DoCHMODFileBool As Boolean, DoCHMODCount As Boolean Dim nCHMO