主题：ftp utf-8

Dim ftp As New FTPClient
ftp.host="127.0.0.1"
ftp.Account = "test"
ftp.password = "test"
ftp.utf8 = True
Dim flist As List(Of String) = ftp.GetFileList
Dim flag As Boolean = ftp.utf8
For i As Integer = flist.Count - 1 To 0 Step -1
    Dim fname = flist(i)
    For Each c As String In fname
        'output.show(fname & " " & asc(c))
        If Asc(c) = 63 Then '说明有中文乱码
            flag = not flag
            Exit For
        End If
    Next
    If flag <> ftp.utf8 Then Exit For
Next
ftp.close