Stuart McLachlan
stuart at lexacorp.com.pg
Thu Mar 13 19:28:00 CST 2003
I don't know about XP. I'm still staying away from it <g> On 13 Mar 2003 at 16:41, Charlotte Foust wrote: > But can't you get to the FSO functionality through the Office library? > If you set a reference to the Office Object Library in XP, at least, you > have Office.FileSearch, Office.FoundFiles, etc. > > Charlotte Foust > > -----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 -- Stuart McLachlan Lexacorp Ltd Application Development, IT Consultancy http://www.lexacorp.com.pg