FTP Files Upload Error in VB6 -


i'm developing project in required communicate mitsubishi m70 cnc (an ftp server) through vb6. though initial communication successful, when try upload or download file ,following error occurs :

error 120003  200 type set 200 port command successful 500 cannot copy file/directory. permission denied.

i'm able copy , paste files in folder manually. when try same through vb , showing error.

my project vb exe installed on same pc ftp server .

my code follows

option explicit  private m_gettingdir boolean private sub addmessage(byval msg string)     txtresults.text = txtresults.text & vbcrlf & msg     txtresults.selstart = len(txtresults.text) end sub    private sub cmdupload_click() dim host_name string dim cmd2 string      enabled = false     mousepointer = vbhourglass     txtresults.text = "working"     txtresults.selstart = len(txtresults.text)     doevents     ' must set url before user name ,    ' password. otherwise control cannot verify    ' user name , password , error:    '    '       unable connect remote host     inetftp.url = "ftp://administrator:cnc@ncexplorer:8080/(192,168,1,101)/"    inetftp.username = "administrator"    inetftp.password = "cnc"       ' path remote file copied       cmd2 =   "ftp://administrator:cnc@ncexplorer:8080/(192,168,1,101)/cnc%20memory/prg/user/new_test.txt"      'is syntax  of remote file  path  correct? dont want copy   file in home directory       '  execution        inetftp.execute , "put c:\test.txt cmd2"      '    m_gettingdir = true    '    inetftp.execute , "dir"   end sub private sub inetftp_statechanged(byval state integer)     select case state         case icerror             addmessage "error: " & _                 "    " & inetftp.responsecode & vbcrlf & _                "    " & inetftp.responseinfo         case icnone             addmessage "none"         case icconnecting             addmessage "connecting"         case icconnected             addmessage "connected"         case icdisconnecting             addmessage "disconnecting"         case icdisconnected             addmessage "disconnected"         case icrequestsent             addmessage "request sent"         case icrequesting             addmessage "requesting"         case icreceivingresponse             addmessage "receiving response"         case icrequestsent             addmessage "request sent"         case icresponsereceived             addmessage "response received"         case icresolvinghost             addmessage "resolving host"         case ichostresolved             addmessage "host resolved"          case icresponsecompleted             addmessage inetftp.responseinfo          if m_gettingdir             dim txt string            dim chunk variant            m_gettingdir = false               'get first chunk.            chunk = inetftp.getchunk(1024, icstring)            doevents             while len(chunk) < 0                 txt = txt & chunk                 chunk = inetftp.getchunk(1024, icstring)                 doevents             loop           '  addmessage "----------"             addmessage txt         end if     case else         addmessage "state = " & format$(state) end select  enabled = true mousepointer = vbdefault end sub

you're not giving ftp cpommand chance see final location. it's taking location literally cmd2

try concatenating destination string command

change this:

inetftp.execute , "put c:\test.txt cmd2"

to this

inetftp.execute , "put c:\test.txt " & cmd2

Comments

Post a Comment

Popular posts from this blog

jOOQ update returning clause with Oracle -

according http://www.jooq.org/doc/3.8/manual/sql-building/sql-statements/update-statement/ jooq doesn't support returning clause in update statements databases except firebird , postgres. does know, still correct oracle jooq? according oracle's documentation, oracle db supports returning clase delete, insert, or update statements. incorrect manual you're right - manual wrong , should fixed: https://github.com/jooq/jooq/issues/5470 single row update returning jooq 3.8 added support single row update .. returning statements. internally, uses callablestatement , pl/sql block of form: begin update "my_table" set "my_table"."column" = 'xyz' "my_table"."id" = 1 returning "my_table"."id", "my_table"."column" ?, ?; ? := sql%rowcount; end; the relevant issue is: https://github.com/jooq/jooq/issues/5190 multi row update returning a...
Read more

java - Warning equals/hashCode on @Data annotation lombok with inheritance -

i have entity inherits other. on other hand, i'm using lombok project reduce boilerplate code, put @data annotation. annotation @data inheritance produces next warning: generating equals/hashcode implementation without call superclass, though class not extend java.lang.object. if intentional, add '@equalsandhashcode(callsuper=false)' type. is advisable add annotation @equalsandhashcode (callsuper = true) or @equalsandhashcode (callsuper = false) ? if not added, 1 callsuper=false or callsuper=true ? the default value false . 1 if don't specify , ignore warning. yes, recommended add @equalsandhashcode annotation on @data annotated classes extend else object. cannot tell if need true or false , depends on class hierarchy, , need examined on case-by-case basis. however, project or package, can configure in lombok.config call super methods if not direct subclass of object. lombok.equalsandhashcode.callsuper = call for configuration system ...
Read more

java - BasicPathUsageException: Cannot join to attribute of basic type -

i using java 8 jpa (hibernate 5.2.1). have clause works perfectly, until introduce clause make use foreign key table values too. i getting following error: basicpathusageexception: cannot join attribute of basic type i think problem related fact have join table, , not sure how create join using join table. employee - employee_category - category model (employee.java): @manytomany(cascade = cascadetype.all, fetch=fetchtype.eager) @jointable ( name="employee_category", joincolumns={ @joincolumn(name="emp_id", referencedcolumnname="id") }, inversejoincolumns={ @joincolumn(name="cat_id", referencedcolumnname="id") } ) private set<category> categories; model (category.java): @id private string id; jpa when introduce following code, fails error above (i think problem new piece of code): join<t, category> category = from.join("id"); predicates.add(criteriabuilder.like(category....
Read more