Monkeybread Xojo plugin - Example: /CURL/FTP/CURLS ftp create or folder delete

Platforms to show: All Mac Windows Linux Cross-Platform

/CURL/FTP/CURLS ftp create or folder delete

Required plugins for this example: MBS CURL Plugin

You find this example project in your Plugins Download as a Xojo project file within the examples folder: /CURL/FTP/CURLS ftp create or folder delete

This example is the version from Wed, 12th Oct 2021.

Project "CURLS ftp create or folder delete.xojo_binary_project"

FileTypes

Filetype text

Filetype all

End FileTypes

Class Window1 Inherits Window

Control StaticText1 Inherits Label

ControlInstance StaticText1 Inherits Label

End Control

Control RunButton Inherits PushButton

ControlInstance RunButton Inherits PushButton

EventHandler Sub Action() DoUpload End EventHandler

End Control

Control ListBox1 Inherits ListBox

ControlInstance ListBox1 Inherits ListBox

End Control

Control URL Inherits TextField

ControlInstance URL Inherits TextField

End Control

Control StaticText2 Inherits Label

ControlInstance StaticText2 Inherits Label

End Control

Control Path Inherits TextField

ControlInstance Path Inherits TextField

End Control

Control StaticText3 Inherits Label

ControlInstance StaticText3 Inherits Label

End Control

Control CheckCreate Inherits CheckBox

ControlInstance CheckCreate Inherits CheckBox

EventHandler Sub Action() CheckButtons End EventHandler

End Control

Control CheckRemove Inherits CheckBox

ControlInstance CheckRemove Inherits CheckBox

EventHandler Sub Action() CheckButtons End EventHandler

End Control

Sub CheckButtons() RunButton.Enabled = CheckCreate.Value or CheckRemove.Value End Sub

Private Sub DoUpload() dim e as integer dim d as new CURLSMBS d.OptionURL=url.text d.OptionDirListOnly = True d.OptionUsername = "test" d.OptionPassword = "xxxx" Break // change credentials dim ws() As String if CheckCreate.Value then ws.Append "MKD "+path.Text end if if CheckRemove.Value then ws.Append "RMD "+path.Text end if d.SetOptionPostQuote(ws) e=d.Perform listbox1.addrow "Result: "+str(e) End Sub

End Class

MenuBar MenuBar1

MenuItem UntitledMenu1 = ""

MenuItem FileMenu = "&File"

MenuItem FileQuit = "Quit"

MenuItem UntitledMenu5 = ""

MenuItem EditMenu = "&Edit"

MenuItem EditUndo = "&Undo"

MenuItem UntitledMenu0 = "-"

MenuItem EditCut = "Cu&t"

MenuItem EditCopy = "&Copy"

MenuItem EditPaste = "&Paste"

MenuItem EditClear = "Clear"

MenuItem UntitledMenu4 = ""

MenuItem UntitledMenu3 = ""

MenuItem UntitledMenu2 = ""

End MenuBar

Class App Inherits Application

End Class

End Project