FTP: opret sti + findes fil

Jeg har fundet ud af nogle at problemerne

DELETE file Deletes file
MKDIR dir1 Creates a directory
RMDIR dir1 Remove a directory


Men hvorfor kan ikke angive at en fil skal overskrives som standart hvis den findes ?
Hvorfor kan man ikke oprette en hel sti på en gang ?
Hvorfor kan kan ikke slette et biblotek med indhold ?

Peter Lang

Mht. det sidste, så kan den ftp der følger med win, og fx. ws_ftp,  heller ikke slette en hel mappe med indhold. Dette er måske ikke muligt at gøre via ftp....

Men du kan jo lave en funktion der gør det, looper over alle undermapper (CHDIR), sletter hver fil i hver undermappe (DELETE), fjerner undermapper (RMDIR) osv, indtil din overordnede mappe er tom.

Der må være en der har lavet alle disse funktioner før.

Jeg har ledt den sidste time på nettet (planetsourcecode osv) men har ikke fundet noget der kan bruges.

Er der en der har et link.

Peter Lang

Hvis du har ledt en hel time, kunne du måske have sparet tid ved at kode den selv i stedet for ;o)

Jo, men jeg ved ikke hvordan man checker om en fil/mappe findes.. og det skal jeg bruge.

Sådan ser du alle file og dir i et dir, dir slutter med "\"

Private Sub Command1_Click()
  With Inet1
      .Cancel
      .Protocol = icFTP
      .URL = "ftp.microsoft.com" '<-- ftp til test
      .UserName = ""
      .Password = ""
      .Execute , "DIR"
  End With
End Sub

Private Function ChunkData(Size As Long) As String
Dim strData As String
  Do: DoEvents
    strData = Inet1.GetChunk(Size, icString)
      If Len(strData) = 0 Then
        Exit Do
      End If
    ChunkData = (ChunkData & strData)
  Loop
End Function

Private Sub Inet1_StateChanged(ByVal State As Integer)
  If State = icResponseCompleted Then
    'Her kommer Dir og File ud..
    Text1.Text = ChunkData(vbDirectory)
  End If
End Sub

Jeg fandt lige noget her:
http://www.visualbasicforum.com/showthread.php?s=f043f3b965766ea75167f6c045776b48&p=735548#post735548

ved dog ikke om det virker men prøv. (PÅ EN FTP HVOR DU HAR ADGANG TIL AT SLETTE FILER OG MAPPER) ;)


Private Sub cmdDELETE_Click()
  ' Delete the directory in txtRemotePath.
  Inet1.Execute txtURL.Text, "DELETE " & _
  txtRemotePath.Text
End Sub

Jeg har opgivet at bruge Inet

Men har fundet noget jeg kunne bruge på:

http://www.eksperten.dk/spm/184239

Men tak for hjælpen
Peter Lang