こんにちは、よろしかったら教えてください。 現在PCはWindows７ですが、WindowsXPバーチャルモードにACCESS2000をインストールし、サーバー（SQLServer2000）とでデータベースを運用しています。 そして上記ACCESSアプリで、レコードを表示した画面で、WORD、EXCEL、PDF等のファイルを取り込んで、あるフォルダに置き、画面上からこの添付ファイルを見られるようにしています。 ところが、バーチャルモードで運用するようになってから「取り込みに失敗」のエラーが 出るようになりました。 コードは以下のような記述です。 エラー処理等は省略 Function XLSFileOpen() Dim objXLS As New Excel.Application Dim varGetFile As Variant Dim filename As String Dim POS As Integer Dim fso, f1, f2, s Dim MyPath As Variant varGetFile = objXLS.GetOpenFilename("すべて (*.*),*.*", , "ファイル選択") POS = InStrRev(varGetFile, "\", , vbTextCompare) filename = Mid(varGetFile, POS + 1) Set fso = CreateObject("Scripting.FileSystemObject") Set f1 = fso.GetFile(varGetFile) Set objXLS = Nothing MyPath = "パス名\" '←サーバフォルダ f1.Copy (MyPath & filename & "") Set f2 = fso.GetFile(MyPath & filename & "") If (f2.Attributes And 1) = False Then f2.Attributes = f2.Attributes + 1 End If MsgBox "添付ファイルを取込みました。" End Function WindowsXPで運用していたときは、「取り込みに失敗」はなかったのですが・・。 原因が判る方、教えていただけると幸です。 よろしくお願いします。
↧