FileSystemObject - Xtreme Visual Basic Talk

08-03-2002, 03:25 PM

xzer0cool

Centurion

Join Date: Apr 2002

Location: Mesa, Az

Posts: 170

FileSystemObject

Ok I'm trying to copy all the files in a folder with certain number and letter extentions. I was going to use this code

Code:

fso.CopyFile "l:\query43\data\" & city(Index) & "\" & city(Index) & ".P*", "Z:\savedata\" & sDate & "\", False

now the problem is not that the files won't always exist. (where the ".p* is changes throught )
so i was going to test if it exsists with this code

Code:

If fso.FileExists("l:\query43\data\" & city(Index) & "\" & city(Index) & ".q*") = True Then
  fso.CopyFile "l:\query43\data\" & city(Index) & "\" & city(Index) & ".Q*", "Z:\savedata\" & sDate & "\", False
End If

Now I guess that its not a valid statement. It doesn't error but it won't do what I want it to do.
My question is how can I test to see if files exist with wildcard charecters??
thanks in advace
-Robert

__________________
http://www.thegiftedones.net
http://www.insanewebdesign.com

08-03-2002, 03:49 PM

OnErr0r

Obsessive OPtimizer

Administrator
* Guru *

Join Date: Jun 2002

Location: Debug Window

Posts: 13,686

Dir$ accepts wildcards, so you could use that to verify the file exists. Check out SHFileOperation API, I believe it accepts wildcards.

Code:

If LenB(Dir$("Drive:\Path\Filename.e*")) Then
    ' Call SHFileOperation here
  End If

__________________
Quis custodiet ipsos custodues.

08-03-2002, 04:53 PM

xzer0cool

Centurion

Join Date: Apr 2002

Location: Mesa, Az

Posts: 170

Thanks OnErrOr I really appreciate your help. I got it all straight now. Thanks again

-Robert

__________________
http://www.thegiftedones.net
http://www.insanewebdesign.com