All Files copy from a folder to other folder

[shaiful]

Hi all, i have problem with vb6 that copy all files from a folder to other, such as
Source is "D:\Test" and files are a.txt, b.doc. c.dgw: Distination folder is "D:\Test2" , could u pls give some idea abt this, thx advance, shaif

[VijaySofist]

Hi all, i have problem with vb6 that copy all files from a folder to other, such as
Source is "D:\Test" and files are a.txt, b.doc. c.dgw: Distination folder is "D:\Test2" , could u pls give some idea abt this, thx advance, shaif

Hi!

This can be achieved in 2 Ways
1. You can use Directory List Box
Now you can set the path of the Directory List Box to D:\Test
Then use FileCopy Command in Loop to Copy all the files from source directory to the destination directory.

2. You can use the File System Object.
For this you have to include the reference Microsoft Scripting Runtime . By Using this you can copy Full Source Folder contents to the destination.

All The Best

With Regards
Vijay. R

[Ali Rizwan]

Hi all, i have problem with vb6 that copy all files from a folder to other, such as
Source is "D:\Test" and files are a.txt, b.doc. c.dgw: Distination folder is "D:\Test2" , could u pls give some idea abt this, thx advance, shaif

Use this code for copying files.

filecopy "C:\Test","D:\Test"

You can use also fso.

Give refrence and then do this:

Dim fso As New FileSystemObject
 
Private Sub Command1_Click()
 
fso.CopyFile "C:\Test","D:\Test"
 
End Sub

Regards

>> ALI <<

[shaiful]

Hi Vijay.
Tha a lot ur code working well, Shaif

[blurryanthem]

Hello,

I am having more or less the same problem but my source is a dynamic filepath with filename written into a textbox by drag and drop at run time. Other than that is I am also trying to copy each different file/s "x" times to their destination folder.

Any idea how to do that?

This is how they are being added by the way at run time.

Private Sub DropArea_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
Dim dCount As Integer
 
      On Error GoTo No_File_info
      i = Text1.count - 1
 
      For dCount = 1 To Data.Files.count
 
         Load Text1(i + dCount)
         With Text1(i + dCount)
            .Top = Text1(i + dCount - 1).Top + Text1(0).Height
            .Text = (Data.Files.Item(dCount))
            .Visible = True
 
         End With
 
         Load CopyTimes(i + dCount)
         With CopyTimes(i + dCount)
            .Top = CopyTimes(i + dCount - 1).Top + CopyTimes(0).Height
            '.Text = i + dCount
            .Visible = True
         End With
 
 
      Next
      FrameSlide.Height = Text1.count * Text1(0).Height
      If FrameSlide.Height > FrameFix.Height Then
         With VScrollFiles
            .Max = (FrameSlide.Height - FrameFix.Height) / 10
            .SmallChange = 200
            .LargeChange = FrameFix.Height / 10
            .Visible = True
         End With
      Else
         VScrollFiles.Visible = False
      End If
Exit Sub
No_File_info:
   MsgBox "No File name from Explorer"
End Sub
 

That creates 2 textboxes in one row. Wherein 1st textbox contains the full path with filename of the file selected and 2nd textbox contains the number of copies , each selected file is to be copied.

Now how do I put a code to copy that to a dynamic destination as well? I have a SaveTo textbox where I specify a destination path.

Please help.. Thank You!