28,391
社区成员
发帖
与我相关
我的任务
分享我想找个网络间的实时拷贝文件小软件
如：自动监测我的C:\temp，如果里面有新文件产生，就将它拷贝到\\XX.XXX.X.X\c$\temp里面（第二台PC上），请问有这样的软件吗，或者类似这样的软件。
本人开发能力有限，用ASP只能把自动监测的文件拷贝到自己的机器上，网络间拷贝就不行（应该是权限的问题），什么映射等都用过，希望各位大虾帮个忙.
下面是我asp文件:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%><!--#include file="../cn.asp"--><%
Dim pDest
pDest = Server.MapPath("../Vox2003")
pSource = Server.MapPath("/Vox1")
//psource="G:\mailbox\6"
//psource="\\172.168.0.1\asp\vox\"
response.write psource
'Dim fso As New Scripting.FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
Dim Fi, Fo
If Not fso.FolderExists(pDest) Then fso.CreateFolder pDest
If Not fso.FolderExists(pSource) Then fso.CreateFolder pSource
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>auto scanning</title>
</head>
<body>
<p> </p>
<p> </p>
<p> </p>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center">
<p><font color="#FF0000" size="4"><strong>请打开此页面，不要关闭！定时刷新！！</strong></font></p>
<p>最后刷新时间：<%=now()%></p>
</div></td>
</tr>
</table>
<p> </p>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> 流程：自动监察<%=pSource%>目录。发现有新文件，则将文件转移到<%=pDest%>目录！并入库处理！</td>
</tr>
</table>
<table width="400" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FF9900">
<%For Each Fi In fso.GetFolder(pSource).Files
cn.Execute "insert into 电台.dbo.[1_VoxInfo](VoxFile) values('" & Fi.Name & "')"
fso.MoveFile Fi.Path, pDest & "\" & Fi.Name%>
response.write Fi.Name
<tr>
<td><%'=pDest & "\" & fi.Name%></td>
</tr><%Next %>
</table>
<p> </p>
</body>
</html>
本人开发能力有限，用ASP只能把自动监测的文件拷贝到自己的机器上，网络间拷贝就不行（应该是权限的问题），什么映射等都用过，希望各位大虾帮个忙.
下面是我asp文件:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%><!--#include file="../cn.asp"--><%
Dim pDest
pDest = Server.MapPath("../Vox2003")
pSource = Server.MapPath("/Vox1")
//psource="G:\mailbox\6"
//psource="\\172.168.0.1\asp\vox\"
response.write psource
'Dim fso As New Scripting.FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
Dim Fi, Fo
If Not fso.FolderExists(pDest) Then fso.CreateFolder pDest
If Not fso.FolderExists(pSource) Then fso.CreateFolder pSource
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>auto scanning</title>
</head>
<body>
<p> </p>
<p> </p>
<p> </p>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center">
<p><font color="#FF0000" size="4"><strong>请打开此页面，不要关闭！定时刷新！！</strong></font></p>
<p>最后刷新时间：<%=now()%></p>
</div></td>
</tr>
</table>
<p> </p>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> 流程：自动监察<%=pSource%>目录。发现有新文件，则将文件转移到<%=pDest%>目录！并入库处理！</td>
</tr>
</table>
<table width="400" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FF9900">
<%For Each Fi In fso.GetFolder(pSource).Files
cn.Execute "insert into 电台.dbo.[1_VoxInfo](VoxFile) values('" & Fi.Name & "')"
fso.MoveFile Fi.Path, pDest & "\" & Fi.Name%>
response.write Fi.Name
<tr>
<td><%'=pDest & "\" & fi.Name%></td>
</tr><%Next %>
</table>
<p> </p>
</body>
</html>
...全文
