Hi All,

Can I copy files via VBA by name patterns with wildcard characters like in
DOS:
copy filename*.ext ...
I know how to find file names matching the pattern and copy them
individually (in a loop), my question is that can it be done with a single
statement?

Thanks,
Stefi

i don't think there's any built in way, but someone that knows windows scripting
should know how to. the filecopy statement works with single files as far as i
know.

you say you know how to loop, so i didn't post any other solutions.

--


Gary


"Stefi" <(E-Mail Removed)> wrote in message
news:6A2C8638-678F-4071-BD09-(E-Mail Removed)...
> Hi All,
>
> Can I copy files via VBA by name patterns with wildcard characters like in
> DOS:
> copy filename*.ext ...
> I know how to find file names matching the pattern and copy them
> individually (in a loop), my question is that can it be done with a single
> statement?
>
> Thanks,
> Stefi
>

Thanks Gary, now I have two options:
1. Copy in a loop.
2. Wait for a response from a windows scripting expert.

Regards,
Stefi

„Gary Keramidasâ€� ezt Ã*rta:

> i don't think there's any built in way, but someone that knows windows scripting
> should know how to. the filecopy statement works with single files as far as i
> know.
>
> you say you know how to loop, so i didn't post any other solutions.
>
> --
>
>
> Gary
>
>
> "Stefi" <(E-Mail Removed)> wrote in message
> news:6A2C8638-678F-4071-BD09-(E-Mail Removed)...
> > Hi All,
> >
> > Can I copy files via VBA by name patterns with wildcard characters like in
> > DOS:
> > copy filename*.ext ...
> > I know how to find file names matching the pattern and copy them
> > individually (in a loop), my question is that can it be done with a single
> > statement?
> >
> > Thanks,
> > Stefi
> >
>
>
>

hi Stefi,
you could use FSO:

Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "D:\test\filename*.ext", "D:\test\test\"

or

strPath = "D:\test\"
strNewPath = "D:\test\test\"
file = Dir$(strPath & "filename*.ext")
Do While file <> ""
FileCopy strPath & file, strNewPath & file
file = Dir$()
Loop

bye
stefan

On 30 Mai, 08:43, Stefi <St...@discussions.microsoft.com> wrote:
> Hi All,
>
> Can I copy files via VBA by name patterns with wildcard characters like in
> DOS:
> copy filename*.ext ...
> I know how to find file names matching the pattern and copy them
> individually (in a loop), my question is that can it be done with a single
> statement?
>
> Thanks,
> Stefi

Thanks Stefan, fso.CopyFile is the very method I was looking for, it works!
By the way, what does the $ sign means in Dir$ function? XL Help doesn't
mention this format.

Regards,
Stefi


„stefan onkenâ€� ezt Ã*rta:

> hi Stefi,
> you could use FSO:
>
> Set fso = CreateObject("Scripting.FileSystemObject")
> fso.CopyFile "D:\test\filename*.ext", "D:\test\test\"
>
> or
>
> strPath = "D:\test\"
> strNewPath = "D:\test\test\"
> file = Dir$(strPath & "filename*.ext")
> Do While file <> ""
> FileCopy strPath & file, strNewPath & file
> file = Dir$()
> Loop
>
> bye
> stefan
>
> On 30 Mai, 08:43, Stefi <St...@discussions.microsoft.com> wrote:
> > Hi All,
> >
> > Can I copy files via VBA by name patterns with wildcard characters like in
> > DOS:
> > copy filename*.ext ...
> > I know how to find file names matching the pattern and copy them
> > individually (in a loop), my question is that can it be done with a single
> > statement?
> >
> > Thanks,
> > Stefi
>
>

hi Stefi,
i used the code from my code collection, where i copied some
codefragment with Dir$ a while ago.
so, I`m not sure if this is correct:
you can write
Dim strText As String
also
Dim strText$

therefore Dir$ forces Dir to return a String, but it does it without
the $ as well.
thank you for making me thinking about it (and changing my code
collection

stefan

On 30 Mai, 09:56, Stefi <St...@discussions.microsoft.com> wrote:
> Thanks Stefan, fso.CopyFile is the very method I was looking for, it works!
> By the way, what does the $ sign means in Dir$ function? XL Help doesn't
> mention this format.

You are partially correct. For all String functions (Dir, Mid, Format,
etc.), if you include the $ sign at the end of the function name, that
function will return a value of type String. However, if you don't include
the $ sign, the function will return a Variant with a sub-type of String.
The only time including the $ sign will really matter is if you use the
String function in a very large loop... Variants take up more memory (which
probably won't matter if you are assigning the output to a variable declared
as a String) and are slower to work with, so (in a large loop) the this
slowness will become measurable.

Rick


"stefan onken" <(E-Mail Removed)> wrote in message
news:7cbd5b67-41b7-4ecd-8744-(E-Mail Removed)...
> hi Stefi,
> i used the code from my code collection, where i copied some
> codefragment with Dir$ a while ago.
> so, I`m not sure if this is correct:
> you can write
> Dim strText As String
> also
> Dim strText$
>
> therefore Dir$ forces Dir to return a String, but it does it without
> the $ as well.
> thank you for making me thinking about it (and changing my code
> collection
>
> stefan
>
> On 30 Mai, 09:56, Stefi <St...@discussions.microsoft.com> wrote:
>> Thanks Stefan, fso.CopyFile is the very method I was looking for, it
>> works!
>> By the way, what does the $ sign means in Dir$ function? XL Help doesn't
>> mention this format.
>
>

Thanks Rick for the explanation!
Stefi


„Rick Rothstein (MVP - VB)â€� ezt Ã*rta:

> You are partially correct. For all String functions (Dir, Mid, Format,
> etc.), if you include the $ sign at the end of the function name, that
> function will return a value of type String. However, if you don't include
> the $ sign, the function will return a Variant with a sub-type of String.
> The only time including the $ sign will really matter is if you use the
> String function in a very large loop... Variants take up more memory (which
> probably won't matter if you are assigning the output to a variable declared
> as a String) and are slower to work with, so (in a large loop) the this
> slowness will become measurable.
>
> Rick
>
>
> "stefan onken" <(E-Mail Removed)> wrote in message
> news:7cbd5b67-41b7-4ecd-8744-(E-Mail Removed)...
> > hi Stefi,
> > i used the code from my code collection, where i copied some
> > codefragment with Dir$ a while ago.
> > so, I`m not sure if this is correct:
> > you can write
> > Dim strText As String
> > also
> > Dim strText$
> >
> > therefore Dir$ forces Dir to return a String, but it does it without
> > the $ as well.
> > thank you for making me thinking about it (and changing my code
> > collection
> >
> > stefan
> >
> > On 30 Mai, 09:56, Stefi <St...@discussions.microsoft.com> wrote:
> >> Thanks Stefan, fso.CopyFile is the very method I was looking for, it
> >> works!
> >> By the way, what does the $ sign means in Dir$ function? XL Help doesn't
> >> mention this format.
> >
> >
>
>

thank you!

stefan

On 30 Mai, 10:57, "Rick Rothstein \(MVP - VB\)"
<rick.newsNO.S...@NO.SPAMverizon.net> wrote:
> You are partially correct. For all String functions (Dir, Mid, Format,
> etc.), if you include the $ sign at the end of the function name, that
> function will return a value of type String. However, if you don't include
> the $ sign, the function will return a Variant with a sub-type of String.
> The only time including the $ sign will really matter is if you use the
> String function in a very large loop... Variants take up more memory (which
> probably won't matter if you are assigning the output to a variable declared
> as a String) and are slower to work with, so (in a large loop) the this
> slowness will become measurable.
>
> Rick