Welcome to the { mindfrost82.com } forums.

You are currently viewing our boards as a guest which gives you limited access to view most discussions and access our other features. By joining our free community you will have access to post topics, communicate privately with other members (PM), respond to polls, upload content and access many other special features. Registration is fast, simple and absolutely free so please, join our community today!

If you have any problems with the registration process or your account login, please contact contact us.

Go Back   { mindfrost82.com } > Gadget Corner > Tech Newsgroups > Microsoft > MS Office > Access

Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1 (permalink)  
Old 04-10-2008, 01:13 AM
=?Utf-8?B?Qm9iIEJhcm5lcw==?=
 
Posts: n/a
fname = Dir("C:\Bob\*.*")

...code snippet..
fname = Dir("C:\Bob\*.*")
If fname = "" Then MsgBox "There Are No Files On The SD Card.", , "": Exit Sub
If fname <> "" Then..
...............................end snippet...

When running..
fname = Dir("C:\Bob\*.*")

...and there is at least one file in the Folder, sometimes fname will show "".

My code includes deleting all files in that Folder after I run code to
Import the .txt files into Access. Could that be causing the fname =
""..when that occurs??

Is there any other code to 100% see a fname = ""....when it is that?

TIA - Bob

Reply With Quote
  #2 (permalink)  
Old 04-10-2008, 11:32 PM
Pieter Wijnen
 
Posts: n/a
Re: fname = Dir("C:\Bob\*.*")

Don't rely on VBA
use:
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA"
(ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA"
(ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function GetFileAttributes Lib "kernel32" Alias
"GetFileAttributesA" (ByVal lpFileName As String) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long)
As Long

Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

'File Handling
Private Const FILE_CURRENT = 1&
Private Const FILE_BEGIN = 0&
Private Const GENERIC_READ = &H80000000
Private Const GENERIC_WRITE = &H40000000
Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Const OPEN_EXISTING = 3&
Private Const FILE_FLAG_RANDOM_ACCESS = &H10000000
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_System = &H4
Private Const FILE_ATTRIBUTE_TEMPORARY = &H100
Private Const CREATE_ALWAYS = 2&


Pieter



"Bob Barnes" <BobBarnes@discussions.microsoft.com> wrote in message
news:A839D8F4-96DD-4C3C-8537-CD2548C39137@microsoft.com...
> ..code snippet..
> fname = Dir("C:\Bob\*.*")
> If fname = "" Then MsgBox "There Are No Files On The SD Card.", , "": Exit
> Sub
> If fname <> "" Then..
> ..............................end snippet...
>
> When running..
> fname = Dir("C:\Bob\*.*")
>
> ..and there is at least one file in the Folder, sometimes fname will show
> "".
>
> My code includes deleting all files in that Folder after I run code to
> Import the .txt files into Access. Could that be causing the fname =
> ""..when that occurs??
>
> Is there any other code to 100% see a fname = ""....when it is that?
>
> TIA - Bob
>



Reply With Quote
Reply

  { mindfrost82.com } > Gadget Corner > Tech Newsgroups > Microsoft > MS Office > Access


Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are Off
[IMG] code is Off
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On



All times are GMT. The time now is 11:49 AM.


Powered by vBulletin, Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.1.0 ©2007, Crawlability, Inc.
© 1999-2008 mindfrost82.com v11.0


Sponsors:
Mobile Phones | Mortgage | Free Myspace Comments | Old Navy | Mortgage Calculator



1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114