Question

vb 检测ftp上的文件是否存在

vb 怎么检测FTP空间中是否存在某文件
比如我的FTP地址为：ftp://192.168.1.1/
上面有一个1.txt
请给出源码

Answer 1

Public Declare Function RegQueryValueExString Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
Public Declare Function RegQueryValueExLong Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Long, lpcbData As Long) As Long
Public Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As Long, lpcbData As Long) As Long
Public Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long

Answer 2

VB我不知道怎么写，但是我想您是想实现后台验证，那么在您的FTP地址上建一个TXT文档
我用易语言实现过，我的E源码给你发下 你试着翻译成VB试试吧，两个语音应该是相通的
-----------------------------------------------------------------------------------------------------------------------
.版本 2
.支持库 internet

.局部变量 空间码, 文本型
.局部变量 机器码, 文本型
机器码 ＝ 取硬件信息码 (“2”)
编辑框1.内容 ＝ 机器码
空间码 ＝ 到文本 (HTTP读文件 (“空间地址” ＋ 机器码 ＋ “.txt”))
.如果 (空间码 ＝ “TXT文本内容”)
信息框 (“验证成功”, #信息图标, “提示”)
.否则
信息框 (“验证失败”, #错误图标, “提示”)
.如果结束

----------------------------------------------------------------------------------------------------------------
PS：这个主要是验证文本行，你试着转换成VB试试

追问

我不会 你能发vb的源码给我吗？