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!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Find all Notes databases on my computer
- Thread starter renniw1
- Start date
Use the NotesDbDirectory class and write yourself an agent that checks out you data directory.
If you want to check all folders, you need to write a recursive function.
If you need help, I have some code lying around that could help.
Pascal.
If you want to check all folders, you need to write a recursive function.
If you need help, I have some code lying around that could help.
Pascal.
- Thread starter
- #3
Here you go :
Explanations :
This is an extract of the code I used to make a document history of a directory.
This function needs to be called with target directory as prevdir and inidir, db as current notesdatabase and True if you want all subdirectories, or False if not.
What you must understand is that Notes cannot work simultaneously on files and subdirectories in a directory. You can study the files in a directory, then the subdirectory entries in a second pass. Actually, that is a good thing, since you do not need to worry about an entry being a subdirectoy with a file-like name ;-).
What this code does is, for every directory, it makes a doc that enables a list of files and a list of directories.
Then it studies the directory entries and lists all files.
It does the same with all subdirectories.
Then, if you have specified True for Recurse, for every subdirectory entry, it calls itself recursively. At the end, it goes back up to prevdir. Given that none of the list docs are saved, they all disappear at end of execution.
And that's all there is too it.
Of course, you will probably want to do a bit more, like list only Notes files and not any file, then record where you found it.
You can do so in the file section. I'm sure you'll be able to pick it up from here, but if you get stuck let me know.
Good luck !
Code:
Function explore_dirtree(prevdir As Variant,inidir As Variant,db As notesdatabase,recurse As Integer)
Dim paramdoc As notesdocument
Dim filelist As notesitem
Dim dirlist As notesitem
Dim dirvalue As String
Dim filefound As Integer
Set paramdoc=db.createdocument
Set filelist = New notesitem(paramdoc,"filelist","")
filefound = False
'build list of files
dirvalue = Dir$("*.*",ATTR_NORMAL)
Do While dirvalue <> ""
If Not(dirvalue = "." Or dirvalue = "..") Then
Call filelist.appendtotextlist(dirvalue)
filefound = True
End If
dirvalue = Dir$()
Loop
Delete catdoc
Set dirlist = New notesitem(paramdoc,"DirList","")
'build list of directories
dirvalue = Dir$("*.*",ATTR_DIRECTORY)
Do While dirvalue <> ""
If Not(dirvalue = "." Or dirvalue = "..") Then
If filefound Then
If Not(filelist.contains(dirvalue)) Then
Call dirlist.appendtotextlist(dirvalue)
End If
Else
Call dirlist.appendtotextlist(dirvalue)
End If
End If
dirvalue = Dir$()
Loop
If recurse Then
Forall x In dirlist.values
If x <> "" Then
dirvalue = inidir & "\" & x
Chdir dirvalue
Call explore_dirtree(prevdir,dirvalue,db,recurse)
End If
End Forall
End If
Chdir prevdir
End FunctionExplanations :
This is an extract of the code I used to make a document history of a directory.
This function needs to be called with target directory as prevdir and inidir, db as current notesdatabase and True if you want all subdirectories, or False if not.
What you must understand is that Notes cannot work simultaneously on files and subdirectories in a directory. You can study the files in a directory, then the subdirectory entries in a second pass. Actually, that is a good thing, since you do not need to worry about an entry being a subdirectoy with a file-like name ;-).
What this code does is, for every directory, it makes a doc that enables a list of files and a list of directories.
Then it studies the directory entries and lists all files.
It does the same with all subdirectories.
Then, if you have specified True for Recurse, for every subdirectory entry, it calls itself recursively. At the end, it goes back up to prevdir. Given that none of the list docs are saved, they all disappear at end of execution.
And that's all there is too it.
Of course, you will probably want to do a bit more, like list only Notes files and not any file, then record where you found it.
You can do so in the file section. I'm sure you'll be able to pick it up from here, but if you get stuck let me know.
Good luck !
- Status
Similar threads
- Locked
- Question