高分+50：asp从Access数据库里读取并转移图片附件到指定目录

<!--#include file="connasp"-->

<%

Function CopyFiles(CopyFrom,CopyTo)

Dim fso

Set fso = ServerCreateObject("ScriptingFileSystemObject")

IF fsoFileExists(CopyTo) then

CopyFiles = "目标文件 <b>" & CopyTo & "</b> 已存在，请先删除!"

Set fso =Nothing

Exit Function

End IF

IF not fsoFileExists(CopyFrom) Then

CopyFiles = "要复制的文件 <b>"&CopyFrom&"</b> 不存在!"

Set fso =Nothing

Exit Function

End If

fsoCopyFile CopyFrom,CopyTo

CopyFiles = "已经成功复制文件 <b>"&CopyFrom&"</b> 到 <b>"&CopyTo&"</b>"

Set fso = Nothing

End Function

FromPath = "OldFolder/" '假设原来的放在OldFolder文件夹

ToPath = "NewFolder/" '假设要把复制到NewFolder文件夹

'如果不存在NewFolder文件夹，则建立NewFolder文件夹

Set fso = ServerCreateObject("ScriptingFileSystemObject")

IF not fsoFolderExists(serverMapPath(ToPath)) then

fsocreateFolder(serverMapPath(ToPath))

end if

Set fso = nothing

'逐个复制数据库中记录的

sql = "select from abcd"

set rs = connexecute(sql)

if not rseof then

do while not rseof

if not isnull(rs("1234")) and rs("1234")<>"" and rs("1234")<>"0" and rs("1234")<>"nojpg" then

responseWrite(CopyFiles(serverMapPath(FromPath & rs("1234")),serverMapPath(ToPath & rs("1234"))) & "<br />")

end if

rsmovenext

loop

end if

rsclose

set rs = nothing

%>

1、相对路径就是指由这个文件所在的路径引起的跟其它文件（或文件夹）的路径关系。

2、在相对路径中(文件夹我按老习惯称目录)

\表示当前盘的根目录

\表示当前目录的上一层目录，上上层可以用\\等。

当前目录下的data目录可以用data\表示

当前目录下的data目录下的data1目录，可以用data\data1\表示等。

2、举例：

Data Source=\db1mdb

Data Source=\db1mdb

Data Source=data\db1mdb

Data Source=data\data1\db1mdb

3、vb中可以AppPath来获得当前路径

Dim constr As String = "provider=MicrosoftJetOledb40;data source="+ ServerMapPath("promdb")+" 服务端形式

Dim constr As String = "provider=MicrosoftJetOledb40;data source="+ Apppath("promdb")+" 程序目录本地端形式

不知道你是啥开发语言

该代码获取当前数据的路径

ApplicationCurrentProjectPath

应用示例 " 如何在窗体和报表中自动添加照片"

在窗体中添加照片前，请把要添加的照片的名称修改为和表中关键字段值一致的名称，后缀为JGP

然后在窗体中添加以下代码：

Private Sub Form_Current()

If Dir(ApplicationCurrentProjectPath & "\photo\" & Me关键字段 & "jpg") <> "" Then

MeImage1Picture = ApplicationCurrentProjectPath & "\photo\" & Me关键字段 & "jpg"

Else

MeImage1Picture = ApplicationCurrentProjectPath & "\photo\nojpg"

End If

End Sub

注意事项：

1、代码中关键字段的名称必须和窗体中的关键字段的名称一致。

2、注意你添加的image的编号不一定是image1，要在代码中将image1修改和你创建的image一致的号！

以上就是关于高分+50：asp从Access数据库里读取并转移图片附件到指定目录全部的内容，包括:高分+50：asp从Access数据库里读取并转移图片附件到指定目录、vb连接access数据库 如何设置数据库的相对路径、关于access数据库在项目中路径问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！