6.0 FTP 파일검색 관련

[추억]

Private Sub Command1_Click()
MsgBox " Drive serial number for " & Left(App.Path, 1) & ": " & GetDriveSerialNumber '하드시리얼값 출력

'GetDriveSerialNumber 에서 읽은 내용이 만약 3545-65FD라면 이걸
Inet1.URL = "http://grigoris.mireene.com/a.txt"
a = Inet1.OpenURL

B = GetDriveSerialNumber

If B = a Then

  MsgBox "  시리얼값이 같습니다."
Else

 MsgBox " 시리얼값이 틀립니다."
 End If

End Sub

Public Function GetDriveSerialNumber(Optional ByVal DriveLetter As String) As String
   Dim fso As Object, Drv As Object
         
   'Create a FileSystemObject object
   Set fso = CreateObject("Scripting.FileSystemObject")
         
   'Assign the current drive letter if not specified
   If DriveLetter <> "" Then
     Set Drv = fso.GetDrive(DriveLetter)
   Else
     Set Drv = fso.GetDrive(fso.GetDriveName(App.Path))
   End If
     
   With Drv
      If .IsReady Then
         DriveSerial = Abs(.SerialNumber)
      Else    '"Drive Not Ready!"
         DriveSerial = -1
      End If
   End With
         
  'Clean up
   Set Drv = Nothing
   Set fso = Nothing
   strtemp = Hex(DriveSerial)
   GetDriveSerialNumber = Left(strtemp, 4) & "-" & Right(strtemp, 4)
    'GetDriveSerialNumber = Left(strtemp, 4)
End Function

============================================

위소스는 FTP사이트에 올린 txt파일에 3545-65FD 입력하고

제가 실행한 하드시리얼번호가 3545-65FD 입니다.

같다면 시리얼이 같습니다 라고 나오고 틀리면 틀리다라고 나오게 하려고 하는대요.

몇일전에 도움을 주셨던 이영빈님이 사용하시는 유프리로 했을떄는 됐는대요.

제가 사용하는 미리내호스팅으로 하니까 안돼네요; 머가 틀린건지 도움좀 부탁드립니다.

============================================

질문2

중복조건 걸때 이렇게 하면 될까요? if a=1 and b=3 and len(dir(app.path & "\" & c:\test.bak)) <>0 then msgbox "모든 조건이 충족되었습니다." 위와 같이 하면 중복조건으로 사용이 가능한가요? 틀린점좀 고쳐주세요 검색해봐도 잘 모르겠습니다;

도움좀 부탁해요.