7,788
社区成员
发帖
与我相关
我的任务
分享小问题，急！在线等，马上给分！！
本人正在做一个数据库程序，有些字段是文件形式。我没有用blob型数据存取，而是建好一个文件夹，把这些数据全部存储在该文件夹中。现有两个问题向大家请教：
1、如何判断文件夹中是否已经存在同名文件？
2、如何打开服务器端文件？和本机上打开文件相同吗？路径怎么写？
1、如何判断文件夹中是否已经存在同名文件？
2、如何打开服务器端文件？和本机上打开文件相同吗？路径怎么写？
...全文
请发表友善的回复…
发表回复
trite 2003-11-25
- 打赏
- 举报
顺便问一句，dir命令返回的是什么样的变量？查找到文件和没有查找到文件分别返回什么值？
trite 2003-11-25
- 打赏
- 举报
\\server\temp中的server是否也可以用IP地址？
feilong215 2003-11-25
- 打赏
- 举报
哦,來遲了.
trite 2003-11-25
- 打赏
- 举报
我是通过网络判断别的机器上的某个目录下是否存在同名文件！
lisong770818 2003-11-25
- 打赏
- 举报
If Len(Dir(gstrPath & gcstrVfReport)) = 0 Then
'文件不存在
else
'文件存在
End If
\\server\temp
'文件不存在
else
'文件存在
End If
\\server\temp
yoki 2003-11-25
- 打赏
- 举报
2.填写相对路径
yoki 2003-11-25
- 打赏
- 举报
Dim fsoFile As New FileSystemObject
If Not fsoFile.FileExists(strFullFileName) Then fsoFile.CreateTextFile strFullFileName
If Not fsoFile.FileExists(strFullFileName) Then fsoFile.CreateTextFile strFullFileName
JERRY_LIU 2003-11-25
- 打赏
- 举报
首先引用 項目 microsoft scripting runtime
添加如下代碼
Dim FILEPATH As FileSystemObject, PATHSTR As TextStream
dim xxxx as string,dddd as string
xxxx="c:\temp\sss.txt" '文件路徑
dddd="寫入文檔內的字符"
Set FILEPATH = CreateObject("Scripting.FileSystemObject")
if FILEPATH.FileExists (xxxx) then
'文件已存在
else
'文件不存在
Set PATHSTR = FILEPATH.CreateTextFile(xxxx, True)
PATHSTR.WriteLine dddd
Endif
以上方法可以判斷是否存在同名文件
添加如下代碼
Dim FILEPATH As FileSystemObject, PATHSTR As TextStream
dim xxxx as string,dddd as string
xxxx="c:\temp\sss.txt" '文件路徑
dddd="寫入文檔內的字符"
Set FILEPATH = CreateObject("Scripting.FileSystemObject")
if FILEPATH.FileExists (xxxx) then
'文件已存在
else
'文件不存在
Set PATHSTR = FILEPATH.CreateTextFile(xxxx, True)
PATHSTR.WriteLine dddd
Endif
以上方法可以判斷是否存在同名文件
高高兴兴的晶晶 2003-11-25
- 打赏
- 举报
帮你 up
