Inet Folder Copying

[jsmith]

I created connection and can copy files, but can't not copy folders from harddrive to ftp. Is there something like getchunk i can use on my harddrive? Does anyone knows how to copy folders, or the only way is mkdir, but what loop do I need.

Loop trough all the sub dirs and upload the files.

Here is something i made when i needed to upload a dir with all files and subdirs.

All you need to change is:
Inet1.URL = "ftp://[INSERT IP]"
Inet1.UserName = "[USER NAME]"
Inet1.Password = "[PASSWORD]"
ReadDir "C:\Upload Folder", "/Destination", Inet1

Just insert your own values there
And add a label called label1(it displays some progress stuff in it).



Option Explicit

Private Sub ReadDir(ByVal sLocalDir As String, ByVal sTargetDir As String, ByVal Inet As Inet)
Dim asDir() As String
Dim sTemp As String
Dim lCounter As Long

'Create target folder
Label1 = "Creating dir: " & sTargetDir
Inet.Execute Inet.URL, "mkdir " & sTargetDir
Do Until Inet.StillExecuting = False
DoEvents
Loop
'Change To Dir
Inet.Execute Inet.URL, "cd " & sTargetDir
Do Until Inet.StillExecuting = False
DoEvents
Loop

'Append slash if it aint here
If Right$(sLocalDir, 1) <> "\" Then
sLocalDir = sLocalDir & "\"
End If
ReDim asDir(0)

'Read Localdir
sTemp = Dir(sLocalDir, vbDirectory) ' Retrieve the first entry.
Do While sTemp <> "" ' Start the loop.
'Ignore the current directory and the encompassing directory.
If sTemp <> "." And sTemp <> ".." Then
'Use bitwise comparison to make sure MyName is a directory.
If (GetAttr(sLocalDir & sTemp) And vbDirectory) = vbDirectory Then
asDir(UBound(asDir)) = sTemp
ReDim Preserve asDir(UBound(asDir) + 1)
End If ' it represents a directory.
End If
sTemp = Dir ' Get next entry.
Loop

'Read all sub dirs
If UBound(asDir) > 0 Then
ReDim Preserve asDir(UBound(asDir) - 1)
'Proccess Sub Dirs
For lCounter = LBound(asDir) To UBound(asDir)
Do Until Inet.StillExecuting = False
DoEvents
Loop
ReadDir sLocalDir & asDir(lCounter), sTargetDir & "/" & asDir(lCounter), Inet 'Read This Subdir
Next
End If

'Upload Files
sTemp = Dir(sLocalDir)
Do While sTemp <> ""
Label1 = "Uploading file: " & sLocalDir & sTemp
'Upload this file
Inet.Execute Inet.URL, "put """ & sLocalDir & sTemp & """ """ & sTargetDir & "/" & sTemp & """"
Do Until Inet1.StillExecuting = False
DoEvents
Loop
sTemp = Dir
Loop

'Move up one dir before we go to the next sub dir
Inet.Execute Inet.URL, "cd .."
Do Until Inet.StillExecuting = False
DoEvents
Loop
End Sub

Private Sub Command1_Click()
Inet1.URL = "ftp://[INSERT IP]"
Inet1.UserName = "[USER NAME]"
Inet1.Password = "[PASSWORD]"
ReadDir "C:\Upload Folder", "/Destination", Inet1
End Sub



Hope it helps

[damasterjo]

is this visual basic 6?

[damasterjo]

i get a user defined type not defined error here. why??