Is Directory Folder Empty? 2

jbs · Aug 14, 2000

OK, I've looked at the manuals and could use a little help. I think this one is simple. How do I check and see if a folder located at "c:/requests" is empty? If the folder is not empty, how do I open a file in the folder if I don't know the name of any of the files that could be located in the folder? If I have an error while opening the file, what is a good way to handle error processing while doing the file open/close operation.  I've looked in my "using visual basic" by QUE and another book but can't find a good section on doing this basic file open/read/close command processing with proper error controls. thanks, Jerry

Vince · Aug 15, 2000

'The easyiest way of checking if a folder is empty and then opening files from that folder waith error checking is to use the Filelistbox 'Place the following Controls on your form '2 * Command Buttons (command1 & command2) '1 * FilelistBox (File1) '2 * TextBox (Text1 & text2) 'Place the following code on your form Option Explicit Dim strPath As String Private Function CheckEmpty() As Boolean 'Checks the listcount property of the filelistbox -1 means empty If File1.ListCount <> -1 Then    CheckEmpty = False 'Files exist Else    CheckEmpty = True End If End Function Private Sub Command1_Click() 'Populates the filelist box with the files from the directory entered On Error GoTo ErrHandle 'Enter the required path to search in the text box strPath = Text1.Text File1 = strPath 'Check if the selected folder is empty If CheckEmpty = True Then    MsgBox "This directory is empty" End If Exit Sub ErrHandle: If Err.Number = 76 Then 'Path not found MsgBox "The Path You Entered Does Not Exist" & vbCrLf & "Please Enter A Valid Path", vbOKOnly + vbInformation, "Find Files" End If End Sub Private Sub File1_DblClick() 'Place code to do operation on file here 'The path for the file = strpath and the selection from the list 'example: OPening the file for a read/write operation 'You must reference the Microsoft Scripting Runtime from your references section Dim ofs As FileSystemObject Dim ots As TextStream Set ofs = New FileSystemObject Set ots = ofs.OpenTextFile(strPath & File1.List(File1.ListIndex), ForAppending, False) 'This will open the file selected and insert text into ot With ots     .Write "Insert Text Here"     .Close      End With End Sub 'The only way that I know of to handle the specific errors that this may throw is to find out the error numbers and trap them from that Hope this helps

jbs · Aug 15, 2000

Vince, Thanks!.  I'll try it a bit later in the day and let you know.  It looks like it will work. Again,  Thank you.

jbs · Aug 20, 2000

Vince,

I'm close,,,very close. But I'm having a slight problem getting the code to work. I've reviewed your code, looked up a few things that I didn't know, and have worked the problem. Something I should have included was that I need the code to work in the background.

Here is the code that I'm using:

Dim ofs As FileSystemObject
Dim ots As TextStream

Set ofs = New FileSystemObject
Set ots = ofs.OpenTextFile(strFolderPath & File1.List(File1.ListIndex), ForReading, False)

Dim strInputLine As String
TextStream.Read (80)

I have checked off "Microsoft Scripting Runtime" from the reference section of the project. strFolderPath is a valid path to a folder.

The error that I'm getting is "Run-Time" error '70' which is "permission denied".

When I take a look at the values it appears that the string variable 'strFolderPath' point correctly to the folder that has been determined to be non-empty; however the value of "File1.List(File1.ListIndex)" appears to be -1. I suspect it should point to the correct name of the file in the folder.

Help?

jerry

bobhilt · Aug 21, 2000

Use the filesystem object (scripting runtime), and check the collection size. I've Pasted this code from MSDN. This would get you the list of files. (If the collection f.count in this example is zero, then your directory is empty):
------------------

Function ShowFolderList(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject&quot

Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name
s = s & " "
Next
ShowFolderList = s
End Function

lsaltzman · Aug 22, 2000

In case for some reason you are not using filesystem objects the older way of checking is as follows. This is a hardcoded example

Dim strDir as string
dim strFile as string
Dim MyPath as string

MyPath = "C:\TestDir\"
'Verify the directory exists
strDir = Dir(MyPath,vbDirectory)

If strDir <> "" then
strFile = dir(MyPath & "*.*&quot

If strFile <> "" then
'a file is there so do something
Elseif strFile = "" then
'The folder is empty
Endif
Endif

swilliams · Sep 7, 2000

To expand on the last post, to go through all files in the folder, use the following:

Dim strDir as string
dim strFile as string
Dim MyPath as string

MyPath = "C:\TestDir\"
'Verify the directory exists
strDir = Dir(MyPath,vbDirectory)

If strDir <> "" then
strFile = dir(MyPath & "*.*&quot

Do Until strFile = ""
' do something to the file (name held in strFile)
strfile = dir ' moves to the next file
Loop
Endif

Simon [sig][/sig]

zorancep · Sep 10, 2000

Jerry,

File1.List(File1.ListIndex) returns List property of currently selected item in list box. If none is selected ListIndex is still -1.

zoran [sig][/sig]

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Is Directory Folder Empty? 2

jbs

Programmer

Vince

Programmer

jbs

Programmer

jbs

Programmer

bobhilt

Programmer

lsaltzman

Programmer

swilliams

Programmer

zorancep

Programmer

Similar threads

Part and Inventory Search

Sponsor