Hi,
I'm trying to move a file witha variable name to a different folder but a
get a File not Found Error, Can you help me with this?
This is the code I'm trying to use:

Function Test()

Dim SourceFile, DestinationFile, MyFile
MyFile = Dir("C:\PICTURE\*.jpg")
SourceFile = "C:\PICTURES\MyFile"
DestinationFile = "C:\Database\Test.jpg"
FileCopy SourceFile, DestinationFile

End Function

Any Help will be really appreciate it.

Thank you.

--
IT1957

I tried this code which a tink is more accurate but still doesn't work.

Function Test()

Dim SourceFile, DestinationFile
SourceFile = Dir("C:\PICTURES\*.jpg")
DestinationFile = ("C:\DATABASE\TEST.jpg")

FileCopy SourceFile, DestinationFile

End Function

--
IT1957


"IT-1957" wrote:

> Hi,
> I'm trying to move a file witha variable name to a different folder but a
> get a File not Found Error, Can you help me with this?
> This is the code I'm trying to use:
>
> Function Test()
>
> Dim SourceFile, DestinationFile, MyFile
> MyFile = Dir("C:\PICTURE\*.jpg")
> SourceFile = "C:\PICTURES\MyFile"
> DestinationFile = "C:\Database\Test.jpg"
> FileCopy SourceFile, DestinationFile
>
> End Function
>
> Any Help will be really appreciate it.
>
> Thank you.
>
> --
> IT1957

Function Test()

Dim SourceFile, DestinationFile, MyFile
MyFile = Dir("C:\PICTURE\*.jpg")
If Len(MyFile)>0 Then
SourceFile = "C:\PICTURES\" & MyFile
DestinationFile = "C:\Database\Test.jpg"
FileCopy SourceFile, DestinationFile
End If
End Function

John Spencer
Access MVP 2002-2005, 2007-2009
The Hilltop Institute
University of Maryland Baltimore County

IT-1957 wrote:
> Hi,
> I'm trying to move a file witha variable name to a different folder but a
> get a File not Found Error, Can you help me with this?
> This is the code I'm trying to use:
>
> Function Test()
>
> Dim SourceFile, DestinationFile, MyFile
> MyFile = Dir("C:\PICTURE\*.jpg")
> SourceFile = "C:\PICTURES\MyFile"
> DestinationFile = "C:\Database\Test.jpg"
> FileCopy SourceFile, DestinationFile
>
> End Function
>
> Any Help will be really appreciate it.
>
> Thank you.
>

You should probably include some handling in case there's no jpg files left
in the folder (or maybe jpegs as well? they're not the same for programming
purposes).

SourceFile = Dir("C:\Test\*.jpg")
If Len(SourceFile) <> 0 Then
DestinationFile = "C:\somefile.jpg"
FileCopy, SourceFile, DestinationFile
End If

End Function

--
Jack Leach
www.tristatemachine.com

"I haven''t failed, I''ve found ten thousand ways that don''t work."
-Thomas Edison (1847-1931)



"IT-1957" wrote:

> I tried this code which a tink is more accurate but still doesn't work.
>
> Function Test()
>
> Dim SourceFile, DestinationFile
> SourceFile = Dir("C:\PICTURES\*.jpg")
> DestinationFile = ("C:\DATABASE\TEST.jpg")
>
> FileCopy SourceFile, DestinationFile
>
> End Function
>
> --
> IT1957
>
>
> "IT-1957" wrote:
>
> > Hi,
> > I'm trying to move a file witha variable name to a different folder but a
> > get a File not Found Error, Can you help me with this?
> > This is the code I'm trying to use:
> >
> > Function Test()
> >
> > Dim SourceFile, DestinationFile, MyFile
> > MyFile = Dir("C:\PICTURE\*.jpg")
> > SourceFile = "C:\PICTURES\MyFile"
> > DestinationFile = "C:\Database\Test.jpg"
> > FileCopy SourceFile, DestinationFile
> >
> > End Function
> >
> > Any Help will be really appreciate it.
> >
> > Thank you.
> >
> > --
> > IT1957

I just tried both solutions, the first one send a "File not Found" error
The second does not send any arror but nothing happens with the file. it is
not being copied.
(I'm using the Name funtion to move the file instead of copying it)
******************************************
Function FirstTest()
Dim SourceFile, DestinationFile
SourceFile = Dir("C:\PICTURES\*.jpg")
If Len(SourceFile) <> 0 Then
DestinationFile = "C:\DATABASE\TEST.jpg"
Name SourceFile As DestinationFile
End If
End Function
******************************************
Function SecondTest()
Dim SourceFile, DestinationFile, MyFile
MyFile = Dir("C:\PICTURE\*.jpg")
If Len(MyFile) > 0 Then
SourceFile = "C:\PICTURES\" & MyFile
DestinationFile = "C:\DATABASE\Test.jpg"
Name SourceFil As DestinationFile
End If
End Function
******************************************
--
IT1957


"John Spencer" wrote:

> Function Test()
>
> Dim SourceFile, DestinationFile, MyFile
> MyFile = Dir("C:\PICTURE\*.jpg")
> If Len(MyFile)>0 Then
> SourceFile = "C:\PICTURES\" & MyFile
> DestinationFile = "C:\Database\Test.jpg"
> FileCopy SourceFile, DestinationFile
> End If
> End Function
>
> John Spencer
> Access MVP 2002-2005, 2007-2009
> The Hilltop Institute
> University of Maryland Baltimore County
>
> IT-1957 wrote:
> > Hi,
> > I'm trying to move a file witha variable name to a different folder but a
> > get a File not Found Error, Can you help me with this?
> > This is the code I'm trying to use:
> >
> > Function Test()
> >
> > Dim SourceFile, DestinationFile, MyFile
> > MyFile = Dir("C:\PICTURE\*.jpg")
> > SourceFile = "C:\PICTURES\MyFile"
> > DestinationFile = "C:\Database\Test.jpg"
> > FileCopy SourceFile, DestinationFile
> >
> > End Function
> >
> > Any Help will be really appreciate it.
> >
> > Thank you.
> >
>

Sorry I just fixed a line that had one letter missing on the SecondTest
function, on the line: Name SourceFil As DestinationFile - I added the "e"

This code works but will REMOVE the PICTURES folder (and its contents) and
create a subfolder in the DATABASE folder as Test.jpg (yes a folder) and
inside the Test.jpg subfolder will be the .jpg file.

Any Idea?

--
IT1957


"IT-1957" wrote:

> I just tried both solutions, the first one send a "File not Found" error
> The second does not send any arror but nothing happens with the file. it is
> not being copied.
> (I'm using the Name funtion to move the file instead of copying it)
> ******************************************
> Function FirstTest()
> Dim SourceFile, DestinationFile
> SourceFile = Dir("C:\PICTURES\*.jpg")
> If Len(SourceFile) <> 0 Then
> DestinationFile = "C:\DATABASE\TEST.jpg"
> Name SourceFile As DestinationFile
> End If
> End Function
> ******************************************
> Function SecondTest()
> Dim SourceFile, DestinationFile, MyFile
> MyFile = Dir("C:\PICTURE\*.jpg")
> If Len(MyFile) > 0 Then
> SourceFile = "C:\PICTURES\" & MyFile
> DestinationFile = "C:\DATABASE\Test.jpg"
> Name SourceFil As DestinationFile
> End If
> End Function
> ******************************************
> --
> IT1957
>
>
> "John Spencer" wrote:
>
> > Function Test()
> >
> > Dim SourceFile, DestinationFile, MyFile
> > MyFile = Dir("C:\PICTURE\*.jpg")
> > If Len(MyFile)>0 Then
> > SourceFile = "C:\PICTURES\" & MyFile
> > DestinationFile = "C:\Database\Test.jpg"
> > FileCopy SourceFile, DestinationFile
> > End If
> > End Function
> >
> > John Spencer
> > Access MVP 2002-2005, 2007-2009
> > The Hilltop Institute
> > University of Maryland Baltimore County
> >
> > IT-1957 wrote:
> > > Hi,
> > > I'm trying to move a file witha variable name to a different folder but a
> > > get a File not Found Error, Can you help me with this?
> > > This is the code I'm trying to use:
> > >
> > > Function Test()
> > >
> > > Dim SourceFile, DestinationFile, MyFile
> > > MyFile = Dir("C:\PICTURE\*.jpg")
> > > SourceFile = "C:\PICTURES\MyFile"
> > > DestinationFile = "C:\Database\Test.jpg"
> > > FileCopy SourceFile, DestinationFile
> > >
> > > End Function
> > >
> > > Any Help will be really appreciate it.
> > >
> > > Thank you.
> > >
> >

Nothing happens with this code:

Function SecondTest()
Dim SourceFile, DestinationFile, MyFile
MyFile = Dir("C:\PICTURE\*.jpg")
If Len(MyFile) > 0 Then
SourceFile = "C:\PICTURES\" & MyFile
DestinationFile = "C:\DATABASE\Test.jpg"
FileCopy SourceFile, DestinationFile
End If
End Function

Te explained on my previous replay is what happens with this code:

Function SecondTest()
Dim SourceFile, DestinationFile, MyFile
MyFile = Dir("C:\PICTURE\*.jpg")
'If Len(MyFile) > 0 Then
SourceFile = "C:\PICTURES\" & MyFile
DestinationFile = "C:\DATABASE\Test.jpg"
Name SourceFile As DestinationFile
'End If
End Function

I want to move the *.jpg from the PICTURES folder to the DATABASE folder.

--
IT1957


"IT-1957" wrote:

> I just tried both solutions, the first one send a "File not Found" error
> The second does not send any arror but nothing happens with the file. it is
> not being copied.
> (I'm using the Name funtion to move the file instead of copying it)
> ******************************************
> Function FirstTest()
> Dim SourceFile, DestinationFile
> SourceFile = Dir("C:\PICTURES\*.jpg")
> If Len(SourceFile) <> 0 Then
> DestinationFile = "C:\DATABASE\TEST.jpg"
> Name SourceFile As DestinationFile
> End If
> End Function
> ******************************************
> Function SecondTest()
> Dim SourceFile, DestinationFile, MyFile
> MyFile = Dir("C:\PICTURE\*.jpg")
> If Len(MyFile) > 0 Then
> SourceFile = "C:\PICTURES\" & MyFile
> DestinationFile = "C:\DATABASE\Test.jpg"
> Name SourceFil As DestinationFile
> End If
> End Function
> ******************************************
> --
> IT1957
>
>
> "John Spencer" wrote:
>
> > Function Test()
> >
> > Dim SourceFile, DestinationFile, MyFile
> > MyFile = Dir("C:\PICTURE\*.jpg")
> > If Len(MyFile)>0 Then
> > SourceFile = "C:\PICTURES\" & MyFile
> > DestinationFile = "C:\Database\Test.jpg"
> > FileCopy SourceFile, DestinationFile
> > End If
> > End Function
> >
> > John Spencer
> > Access MVP 2002-2005, 2007-2009
> > The Hilltop Institute
> > University of Maryland Baltimore County
> >
> > IT-1957 wrote:
> > > Hi,
> > > I'm trying to move a file witha variable name to a different folder but a
> > > get a File not Found Error, Can you help me with this?
> > > This is the code I'm trying to use:
> > >
> > > Function Test()
> > >
> > > Dim SourceFile, DestinationFile, MyFile
> > > MyFile = Dir("C:\PICTURE\*.jpg")
> > > SourceFile = "C:\PICTURES\MyFile"
> > > DestinationFile = "C:\Database\Test.jpg"
> > > FileCopy SourceFile, DestinationFile
> > >
> > > End Function
> > >
> > > Any Help will be really appreciate it.
> > >
> > > Thank you.
> > >
> >

Is it C:\Picture or C:\Pictures? You have two different directories being
referenced in your code.

Function SecondTest()
Dim SourceFile, DestinationFile, MyFile
MyFile = Dir("C:\PICTURE\*.jpg")
If Len(MyFile) = 0 Then
Msgbox "No file in C:\PICTURE\*.jpg"
Else 'Is it C:\Picture or C:\Pictures????
SourceFile = "C:\PICTURE\" & MyFile
DestinationFile = "C:\DATABASE\Test.jpg"
FileCopy SourceFile, DestinationFile
End If
End Function

FileCopy makes a copy in the destination directory and the original remains in
C:\Picture directory.


John Spencer
Access MVP 2002-2005, 2007-2009
The Hilltop Institute
University of Maryland Baltimore County

IT-1957 wrote:
> Nothing happens with this code:
>
> Function SecondTest()
> Dim SourceFile, DestinationFile, MyFile
> MyFile = Dir("C:\PICTURE\*.jpg")
> If Len(MyFile) > 0 Then
> SourceFile = "C:\PICTURES\" & MyFile
> DestinationFile = "C:\DATABASE\Test.jpg"
> FileCopy SourceFile, DestinationFile
> End If
> End Function
>
> Te explained on my previous replay is what happens with this code:
>
> Function SecondTest()
> Dim SourceFile, DestinationFile, MyFile
> MyFile = Dir("C:\PICTURE\*.jpg")
> 'If Len(MyFile) > 0 Then
> SourceFile = "C:\PICTURES\" & MyFile
> DestinationFile = "C:\DATABASE\Test.jpg"
> Name SourceFile As DestinationFile
> 'End If
> End Function
>
> I want to move the *.jpg from the PICTURES folder to the DATABASE folder.
>

That was it - it should be Pictires...
Thank you very much, it works now.

--
IT1957


"John Spencer" wrote:

> Is it C:\Picture or C:\Pictures? You have two different directories being
> referenced in your code.
>
> Function SecondTest()
> Dim SourceFile, DestinationFile, MyFile
> MyFile = Dir("C:\PICTURE\*.jpg")
> If Len(MyFile) = 0 Then
> Msgbox "No file in C:\PICTURE\*.jpg"
> Else 'Is it C:\Picture or C:\Pictures????
> SourceFile = "C:\PICTURE\" & MyFile
> DestinationFile = "C:\DATABASE\Test.jpg"
> FileCopy SourceFile, DestinationFile
> End If
> End Function
>
> FileCopy makes a copy in the destination directory and the original remains in
> C:\Picture directory.
>
>
> John Spencer
> Access MVP 2002-2005, 2007-2009
> The Hilltop Institute
> University of Maryland Baltimore County
>
> IT-1957 wrote:
> > Nothing happens with this code:
> >
> > Function SecondTest()
> > Dim SourceFile, DestinationFile, MyFile
> > MyFile = Dir("C:\PICTURE\*.jpg")
> > If Len(MyFile) > 0 Then
> > SourceFile = "C:\PICTURES\" & MyFile
> > DestinationFile = "C:\DATABASE\Test.jpg"
> > FileCopy SourceFile, DestinationFile
> > End If
> > End Function
> >
> > Te explained on my previous replay is what happens with this code:
> >
> > Function SecondTest()
> > Dim SourceFile, DestinationFile, MyFile
> > MyFile = Dir("C:\PICTURE\*.jpg")
> > 'If Len(MyFile) > 0 Then
> > SourceFile = "C:\PICTURES\" & MyFile
> > DestinationFile = "C:\DATABASE\Test.jpg"
> > Name SourceFile As DestinationFile
> > 'End If
> > End Function
> >
> > I want to move the *.jpg from the PICTURES folder to the DATABASE folder.
> >
>