Dan Waters
dwaters at usinternet.com
Fri Mar 14 12:04:01 CST 2003
Virginia, By tomorrow, I will send you (off-line) a small demo database in A97 that contains the functionality that I believe you are looking for. This does use File System Objects. Dan Waters Quality Process Solutions -----Original Message----- From: accessd-admin at databaseadvisors.com [mailto:accessd-admin at databaseadvisors.com] On Behalf Of Hollis,Virginia Sent: Friday, March 14, 2003 6:02 AM To: 'accessd at databaseadvisors.com' Subject: RE: [AccessD] Adding Attachments Then what do I do? I have tried every combination. I found out opening the file & saving it to the directory & folder I want it in, does not work. When I do a save, the document that was saved to the network directory is blank. I can't figure out how to make the file 'Move' from where the user has it stored to the folder & directory on the network. Virginia -----Original Message----- From: Stuart McLachlan [mailto:stuart at lexacorp.com.pg] Sent: Thursday, March 13, 2003 2:13 PM To: Hollis,Virginia; accessd at databaseadvisors.com Subject: RE: [AccessD] Adding Attachments Stay away from the FSO unless you can *guarantee* that your applcation will never have to run on a machine which has scripting turned off (Done frequently by network administrators as a virus protection measure). You can handle the case where the directory doesn't exist without using it fairly easily. > I get User defined type not defined Error on: Dim fso As > FileSystemObject > > This is in 97, does that make a difference? > > -----Original Message----- > From: Mike and Doris Manning [mailto:mikedorism at ntelos.net] > Sent: Thursday, March 13, 2003 10:03 AM > To: accessd at databaseadvisors.com > Subject: RE: [AccessD] Adding Attachments > > > You have to do a FileCopy from the first selected location to the > second selected location in order to actually move the file. > > Public Sub MoveFile(strOldPath As String, strOldName As String, _ > strNewPath As String, strNewName As String) > > On Error GoTo ErrorHandler > > Dim fso As FileSystemObject > Dim strOldFile As String > > DoCmd.Hourglass True > > strOldFile = strOldPath & strOldName > > If Dir(strNewPath, vbDirectory) = "" Then > Set fso = New FileSystemObject > fso.CreateFolder strNewPath > End If > > FileCopy strOldFile, strNewName > > DoCmd.Hourglass False > > Exit Sub > > ErrorHandler: > Call HandleErrors(Err, strMyName, "MoveFile") > End Sub > > Doris Manning > Database Administrator > Hargrove Inc. > www.hargroveinc.com > > -----Original Message----- > From: accessd-admin at databaseadvisors.com > [mailto:accessd-admin at databaseadvisors.com] On Behalf Of > Hollis,Virginia > Sent: Thursday, March 13, 2003 10:29 AM > To: 'accessd at databaseadvisors.com' > Subject: RE: [AccessD] Adding Attachments > > > I have been playing around with the dialog to Save the file to a > specified folder. Tell me if anyone thinks this will work... > > Use the Open file dialog so the user can select the file they need to > attach. Then the Save dialog box opens to the directory & folder where > the attachment needs to be saved. > > Once they save the file it places the file name in the field > 'attachments' which is a hyperlink field. > > Now, the problem... (there's always a catch) > > How do I make the Save dialog box actually "Save" the file?! > > The Save dialog opens, and places the file name in the attachments > field, but it does not Save the file to the folder & directory. > > Virginia > > -----Original Message----- > From: Wortz, Charles [mailto:CWortz at tea.state.tx.us] > Sent: Wednesday, March 12, 2003 1:38 PM > To: accessd at databaseadvisors.com > Subject: RE: [AccessD] Adding Attachments > > > Virginia, > > If I was doing it I would add code that checks the path name and > reject all path names that start with a drive letter and only accept > UNC path names. Thus, the only drives on their computers that pass are > shared drives. > > > Charles Wortz > Software Development Division > Texas Education Agency > 1701 N. Congress Ave > Austin, TX 78701-1494 > 512-463-9493 > CWortz at tea.state.tx.us > > -----Original Message----- > From: Hollis,Virginia [mailto:HollisVJ at pgdp.usec.com] > Sent: Wednesday 2003 Mar 12 13:16 > To: 'accessd at databaseadvisors.com' > Subject: RE: [AccessD] Adding Attachments > > > Is there a way to have the attachment saved (moved?) to a common > network drive, or the directory the database is stored? > > I got to thinking, there will be the user that will attach a file that > is stored on their computer, which obviously will make it unavailable > to everyone that needs the attachment. > > Virginia > > > > -----Original Message----- > From: Arthur Fuller [mailto:artful at rogers.com] > Sent: Wednesday, March 12, 2003 7:09 AM > To: accessd at databaseadvisors.com > Subject: RE: [AccessD] Adding Attachments > > > > On my forms I have the text field beside a little button whose text is > just 3 dots. The OnClick fires the code I posted. The user navigates > to a file and selects ok, then the code plugs the complete filename > into the text field (in this case BigImagePath). > > > > -----Original Message----- > From: accessd-admin at databaseadvisors.com > [mailto:accessd-admin at databaseadvisors.com] On Behalf Of > Hollis,Virginia > Sent: March 11, 2003 12:34 PM > To: 'accessd at databaseadvisors.com' > Subject: RE: [AccessD] Adding Attachments > > > > Ok, I found Sub TestGetFileName() in ADH. > > > > You mentioned posting the results to a control. Do I need to have a > button on the form that opens the GetFileName? Then what transfers > this file name to the field? > > > > Virginia > > -----Original Message----- > From: Arthur Fuller [mailto:artful at rogers.com] > Sent: Tuesday, March 11, 2003 10:20 AM > To: accessd at databaseadvisors.com > Subject: RE: [AccessD] Adding Attachments > > You don't need to use URLs if you don't want to. I use code from ADH > that calls the Windows API to open the GetFile dialog, then posts the > result to a control on my form, like so: > > > > With Me > > .BigImagePath = ahtCommonFileOpenSave() > > End With > > > > To cohere to the licensing I cannot post said function or its API > declaration. Of course I could change all the variable names and the > function name and claim it as my own work, which is how I learned to > program, but now that I'm an old fart I don't do that any more. > > > > (Fuller's Law #3: You start out a Young Turk and before you know it > you're an Old Fart.) > > > > The function called above returns an absolute path, but given same and > knowledge of the app directory, it's a simple matter to replace the > app path with a relative reference. The Replace function does it in > one line: > > > > Replace( strExp as String, strFind as String, strReplace as String > ) > > > > HTH, > > A. > > -- Lexacorp Ltd http://www.lexacorp.com.pg Information Technology Consultancy, Software Development,System Support. _______________________________________________ AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com _______________________________________________ AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com _______________________________________________ AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com