Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Dim db As Database Dim rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("qryGroups") rs.MoveFirst Do While Not rs.EOF strGroup = rs!HRGroup Dim AppVer Dim fs, A As Object Set fs = CreateObject("Scripting.FileSystemObject") strFile = "D:\Documents and Settings\chriramw\My Documents\Downloads\Security\HRGrpMembers.bat" Set A = fs.CreateTextFile(strFile, True) A.writeline "showmbrs " & strGroup & " > HRGroupMembers.txt" A.Close Set fs = Nothing Set A = Nothing lngHWnd = Shell(strFile) WaitWhileRunning (lngHWnd) rs.MoveNext Loop rs.Close Set db = Nothing End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.