This procedure tests to find out if file transfer commands are enabled. A line continuation character (an underscore preceded by a space) is used to break a long line.

Sub TransTest ()

 Dim transferEnabled as Integer

 transferEnabled = Session.GetCommandGroupProfile(rcFileTransfer)

 If transferEnabled = rcDisabled Then

 MsgBox "File transfer is disabled. Contact your administrator " & _

     "if you need to transfer files."

 End If

End Sub