Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
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.