ooogooo
چهارشنبه 10 مهر 1392, 21:27 عصر
سلام. من دنبال کدی میگردم که بتونه یک فایل را از اکانت اف تی پی پاک کنه و در همه کامپیوتر ها هم راحت اجرا شه و نیازی به اکتیوایکس و ... نداشته باشه .
خیلی گشتم و کد زیر را پیدا کردم و روش کار کردم ولی جواب نداد :(
کسی میتونه کمک کنه؟
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetConnect Lib "wininet.dll" _
Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
Private Declare Function FtpDeleteFile Lib "wininet.dll" Alias "FtpDeleteFileA" (ByVal hFtpSession As Long, ByVal lpszFileName As String) As Boolean
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Private Enum eTRANSFERT_TYPE
FTP_TRANSFER_TYPE_ASCII = &H1
FTP_TRANSFER_TYPE_BINARY = &H2
End Enum
Function DelFtpFile(stServ As String, stLogin As String, stPass As String, stRepFtp As String, stFicFtp As String) As Boolean
' Cette fonction efface un fichier sur un serveur FTP.
' stServ = name or ip adress of ftp server
' stLogin = login name
' stPass = password
' stRepFtp = directory ya mahale fili ke gharar ast pak shavad ("/" baraye baraye rishe estefade shavad)
' stFicFtp = name fili k gharar ast az server hazf shavad
' in tabe dar soorati k pak kardan anjam shavad meghdare TRUE va dar gheire in surat meghdare FALSE ra barmigardanad
Dim lgFtp As Long, lgSession As Long, lgDir As Long
Dim inRes As Integer
Dim blOk As Boolean
blOk = False
' Récupère un pointeur vers la connexion internet courante
lgSession = InternetOpen("DelFtpFile", 1, vbNullString, vbNullString, 0)
If lgSession Then
' Récupère un pointeur vers pour session FTP
lgFtp = InternetConnect(lgSession, stServ, INTERNET_DEFAULT_FTP_PORT, _
stLogin, stPass, INTERNET_SERVICE_FTP, 0, 0)
If lgFtp Then
' Positionne le répertoire distant
If FtpSetCurrentDirectory(lgFtp, stRepFtp) Then
' Efface le fichier
blOk = FtpDeleteFile(lgFtp, stFicFtp)
Else
MsgBox "Erreur de positionnement dans le répertoire distant!"
End If
Else
MsgBox "Erreur ouverture session FTP, vérifiez l'adresse, le login/pwd."
End If
' Libération du pointeur
inRes = InternetCloseHandle(lgFtp)
Else
MsgBox "Pas de connexion!"
End If
' Retourne le résultat
DelFtpFile = blOk
End Function
خیلی گشتم و کد زیر را پیدا کردم و روش کار کردم ولی جواب نداد :(
کسی میتونه کمک کنه؟
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetConnect Lib "wininet.dll" _
Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
Private Declare Function FtpDeleteFile Lib "wininet.dll" Alias "FtpDeleteFileA" (ByVal hFtpSession As Long, ByVal lpszFileName As String) As Boolean
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Private Enum eTRANSFERT_TYPE
FTP_TRANSFER_TYPE_ASCII = &H1
FTP_TRANSFER_TYPE_BINARY = &H2
End Enum
Function DelFtpFile(stServ As String, stLogin As String, stPass As String, stRepFtp As String, stFicFtp As String) As Boolean
' Cette fonction efface un fichier sur un serveur FTP.
' stServ = name or ip adress of ftp server
' stLogin = login name
' stPass = password
' stRepFtp = directory ya mahale fili ke gharar ast pak shavad ("/" baraye baraye rishe estefade shavad)
' stFicFtp = name fili k gharar ast az server hazf shavad
' in tabe dar soorati k pak kardan anjam shavad meghdare TRUE va dar gheire in surat meghdare FALSE ra barmigardanad
Dim lgFtp As Long, lgSession As Long, lgDir As Long
Dim inRes As Integer
Dim blOk As Boolean
blOk = False
' Récupère un pointeur vers la connexion internet courante
lgSession = InternetOpen("DelFtpFile", 1, vbNullString, vbNullString, 0)
If lgSession Then
' Récupère un pointeur vers pour session FTP
lgFtp = InternetConnect(lgSession, stServ, INTERNET_DEFAULT_FTP_PORT, _
stLogin, stPass, INTERNET_SERVICE_FTP, 0, 0)
If lgFtp Then
' Positionne le répertoire distant
If FtpSetCurrentDirectory(lgFtp, stRepFtp) Then
' Efface le fichier
blOk = FtpDeleteFile(lgFtp, stFicFtp)
Else
MsgBox "Erreur de positionnement dans le répertoire distant!"
End If
Else
MsgBox "Erreur ouverture session FTP, vérifiez l'adresse, le login/pwd."
End If
' Libération du pointeur
inRes = InternetCloseHandle(lgFtp)
Else
MsgBox "Pas de connexion!"
End If
' Retourne le résultat
DelFtpFile = blOk
End Function