copy a created file to another location.

[robvr6]

Hi all,

I am still playing with an little app that creates an xml file and a text file. is there a simple way to get the created file to another location. The file is bieng created in C:\PROGRAM FILES\Image text Editor\photos\ but when its wrtten I need to get it to here C:\PROGRAM FILES\Image text Editor\ .I have included the code bieng used anybody got any ideas.

thanks in advance
R

Private Sub Command2_Click()
 
 
    Dim f1 As Integer, jpgurl As String, MyPath As String, Artist As String, xmlpath As String, songpath As String, slidenode As String, songname As String, mp3path As String, f2 As Integer, i As Integer
    Dim myFolder As String, mytext As String
 
    myFolder = "photos/"
    mytext = "your image Description here"
 
    
    mp3path = "C:\PROGRAM FILES\Image text Editor\photos\"
    xmlpath = "C:\PROGRAM FILES\Image text Editor\"
    
         f2 = FreeFile
    Open mp3path & "jpg.txt" For Output As #f2       ' if you don't need mp3.txt take out
     f1 = FreeFile
     
    Open xmlpath & "album.xml" For Output As #f1
    Print #f1, "<?xml version=\""1.0\"" encoding=\""UTF-8\""?>"
    Print #f1, "<slides>"
    songname = Dir(mp3path & "\*.jpg")   ' get first track
    i = 1
    While Not Len(songname) = 0
        'Print #f1, "<photo>"
 
        Print #f1, "<slideNode jpegURL="""; myFolder; songname; """>"; mytext; "</slideNode>"
Print #f2, songname
        Sleep 100                                ' slight pause, needed
        songname = Dir                           ' get next image
 
        'Print #f1, "</photo>"
    
    Wend
    Print #f1, "</slides>"
    
 
    
   Close