can't copy my directory

fomaxrge

Trainee

Posts: 88

Date of registration: Aug 14th 2012

Wednesday, January 23rd 2013, 12:31pm

Hi again i am trying to have a button in my api that takes back up.
so i am doing something like this...

Jabaco Source

Public Sub Form_ToolBarClick(ToolBarItem As VB#IToolBarItem)
  
   If ToolBarItem.ControlID = "backup" Then	
   intResponse2 = MsgBox("Θέλετε να δημιουργηθεί αντίγραφο ασφαλείας;", vbYesNo + vbQuestion,"Back Up")
   
   If intResponse2 = vbYes Then  
   myfolderdate = Day(dd) &"."& Month(mm) &"."& Year(yyyy) 
   'MsgBox myfolderdate	
   MkDir "C:\back_up"& myfolderdate 
   
   from_folder =  "C:\xampp\mysql\data\my_api_2012"
   to_folder = "C:\back_up"& myfolderdate 
 
   
   FileCopy from_folder,To_folder 
   

   End If
   End If
   
End Sub

BUT always having

"can't copy file directory"

Do you have any idea why is this happening?

Go to the top of the page

theuserbl

Intermediate

Posts: 436

Date of registration: Dec 20th 2008

Wednesday, January 23rd 2013, 4:44pm

RE: can't copy my directory

Quoted from "fomaxrge"

Do you have any idea why is this happening?

Because - as the name said - FileCopy copies files and not directories.

To copy a directoy is a little more difficult. An implementation for it, currently not exist.
You have to read the directory, file by file and subduirectory by subdirectory.
You have to copy every single file. And if there is a subdirectory, you have to read the name of it and create it on the new place. Then doing the same with the subvdirectory like with the directory before.

Greatings
theuserbl

Go to the top of the page

fomaxrge

Trainee

Posts: 88

Date of registration: Aug 14th 2012

Wednesday, January 23rd 2013, 8:10pm

Yes file/file works fine.
Because i need to take a back up of my mysql database could you please inform me which files or directories are most important?
I took a back up of -- >c:\xampp\mysql\data\mydb\...
is that ok or need more?

Thanks

Go to the top of the page

Dani

Intermediate

Posts: 325

Date of registration: Nov 19th 2009

Location: GERMANY

Wednesday, January 23rd 2013, 9:08pm

Hey there,

with H2 all it takes is one SQL command

	Jabaco Source
1	BACKUP TO 'backup.zip'

for a zip archive or

	Jabaco Source
1	SCRIPT TO 'C:\myScript.sql'

very elegant!

With MySql you will have to look at mysqldump
http://dev.mysql.com/doc/refman/5.5/en/mysqldump.html

But it might be enough to backup the folder your database is located at. And thats simply the folder you set your database up in!!

Dani

latest Jabaco.jar:
Jabaco.jar on bitbucket since other links are down !!
Jabaco Framework source:
https://code.google.com/p/jabacoframework/source/list

Go to the top of the page

fomaxrge

Trainee

Posts: 88

Date of registration: Aug 14th 2012

Thursday, January 24th 2013, 11:49am

Hi Dani!

Because i am a little bit confused do you thing that i am ok taking back up my folder that mention above or have to make the dump?

Go to the top of the page

theuserbl

Intermediate

Posts: 436

Date of registration: Dec 20th 2008

Thursday, January 24th 2013, 4:15pm

Because FileCopy copies only files, here a first implementation of DirCopy, which copies complete directories:

Jabaco Source

Public Static Function DirCopy(Source As String, Destination As String) As Boolean
  Dim SourceFile As java#io#File = New File(Source)
  Dim DestinationFile As java#io#File = New File(Destination)
  DirCopy = True
  If (NOT SourceFile.exists) Then
    MsgBox "Source-directory " & Chr(34) & Source & Chr(34) & " don't exists"
    DirCopy = False
    Exit Function
  Elseif (NOT SourceFile.isDirectory) Then
    MsgBox "Source-directory " & Chr(34) & Source & Chr(34) & " not a directory"
    DirCopy = False
    Exit Function
  Else
    If (NOT DestinationFile.exists) Then
      MkDir Destination
    End If
    If (NOT DestinationFile.isDirectory) Then
      MsgBox "Destination-directory " & Chr(34) & Destination & Chr(34) & " not a directory"
      DirCopy = False
      Exit Function
    End If
  End If
  
  Dim childFolders() As File
  childFolders() = SourceFile.listFiles()

  Dim item As File
  For Each item In childFolders
    If item.isFile Then
      FileCopy (Source & System.getProperty("file.separator") & item.getName , Destination & System.getProperty("file.separator") & item.getName)
    ElseIf item.isDirectory Then
      DirCopy (Source & System.getProperty("file.separator") & item.getName , Destination & System.getProperty("file.separator") & item.getName)    
    End If
  Next
End Function

If I have more time and if I haven't forgotten it then, I will include it in the JabacoFramework.

Sadly the DirCopy works slow.

Currently I haven't checked, if the Destination-directory is a subdirectoy of the Source-directory. If so, then it copies endless.
So be careful, that the Source and the Destination are two complete different directories and not the one is included in the other.

Greatings
theuserbl