MkDir and Multiple Documents

HCL Domino Domino Forum
1

Can someone point me to a post or other solution for this?

I want to create Windows directories based on multiple field names on a document and export an attachment as well to a network drive. For example:

Notes Document

Dept No. 78

Title: Dept 78 Procedures

Attachment: PDF, Word, etc…

Network Drive

z:\Dept 78\Dept 78 Procedures\attachment w/text file of field names

I know MkDir can do this, but you have to write the directory name in. I need it to automatically create the folders and attachments.

Can anyone help?

2

Subject: MkDir and Multiple Documents

its a start …

http://www-10.lotus.com/ldd/nd6forum.nsf/DateAllThreadedweb/c8d25620ff8d3674852574b00070be3a?OpenDocument

3

Subject: RE: MkDir and Multiple Documents

I can create a single dir and attachment, but can’t get it to create multiple dir’s.

Sub Initialize

On Error Goto errH

Set S = New NotesSession



Set db =S.currentdatabase

Set collection = db.unprocesseddocuments

Set doc = collection.GetFirstDocument()

While Not (doc Is Nothing)

	Set rtm = doc.GetFirstItem("Image")

	

	If Dir$("C:\Attachment Files",16) = "" Then

		Mkdir "C:\Attachment Files"

	End If 

	

	

	If ( rtm.Type = RICHTEXT ) Then	

		

		Forall o In rtm.EmbeddedObjects				

			Call o.ExtractFile _

			( "C:\Attachment File\" & o.name)

			'Call o.Remove

			Call doc.Save( True, True )

		End Forall

	End If

	Set doc = collection.GetNextDocument(doc)

Wend

Exit Sub

errH:

Msgbox "Error in line " & Cstr(Erl) & " & error is: " & Error, 64, ".: ERROR :."

Exit Sub

End Sub

4

Subject: RE: MkDir and Multiple Documents

Try creating each level one at a time starting from the top

5

Subject: RE: MkDir and Multiple Documents

again …

http://www-10.lotus.com/ldd/nd6forum.nsf/DateAllThreadedweb/c8d25620ff8d3674852574b00070be3a?OpenDocument