KB168766 - FIX: Internet Transfer Control Fails on Case-Sensitive Server

Article ID: 168766

Article Last Modified on 12/10/2003

Microsoft Visual Basic 5.0 Control Creation Edition
Microsoft Visual Basic 5.0 Learning Edition
Microsoft Visual Basic 5.0 Professional Edition
Microsoft Visual Basic 5.0 Enterprise Edition

This article was previously published under Q168766

SYMPTOMS

The "Execute" method of Microsoft Internet Transfer Control will fail on a case-sensitive server with directories or files containing lowercase letters.

RESOLUTION

To work around this behavior:

the WinInet API can be used for various FTP functions.

-or-

for directory listings, the OpenURL method of the control can be used as follows:

      Private Sub Command1_Click()
          Text1.Text = Inet1.OpenURL("ftp://ftp.host.com/pub")
      End Sub

STATUS

Microsoft has confirmed this to be a bug in the Microsoft products listed at the beginning of this article. This bug has been fixed in Visual Studio 97 Service Pack 2.

For more information on the Visual Studio 97 Service Pack 2, please see the following article in the Microsoft Knowledge Base:

170365 : INFO: Visual Studio 97 Service Packs - What, Where, and Why

For a list of the Visual Basic 5.0 bugs that were fixed in the Visual Studio 97 Service Pack 2, please see the following article in the Microsoft Knowledge Base:

171554 : INFO: Visual Basic 5.0 Fixes in Visual Studio 97 Service Pack 2

MORE INFORMATION

UNIX servers support both uppercase and lowercase characters in file names and directory names; file systems, such as FAT and NTFS, treat both cases the same.

Steps to Reproduce Behavior

Place a CommandButton on a Visual Basic form.

Place this code in the button:

      Private Sub_Command1_Click()
          ' ftp.host.com is a server that supports lowercase
          ' file names, such as a UNIX server, and has a directory
          ' called "pub" in lower case.
          Inet1.Execute "FTP://ftp.host.com", "CD pub"
      End Sub

Place the following code in the StateChanged event for the Inet control:

      Private Sub Inet1_StateChanged(ByVal State As Integer)
          Debug.Print Inet1.ResponseInfo
      End Sub

Run the form. In the debug window, you will see this message:

550 PUB: No such file or directory.

Keywords: kbbug kbfix kbvbp500sp2fix kbvs97sp2fix KB168766