FTP- Download, upload, Delete & find files

-
Public Function Func_FTP(Operation,ServerName,UserName,Password,RemoteLocation,LocalLocation)


'Set up the environment
Const INTERNET_OPEN_TYPE_DIRECT = 1

Extern.Declare micLong, "InternetOpen", "wininet.dll", "InternetOpenA", micString, micDWord, micString, micString, micDWord

Dim hInternet
hInternet = Extern.InternetOpen( "QTP_FTP", INTERNET_OPEN_TYPE_DIRECT, vbNullChar, vbNullChar, 0 )


If hInternet = 0 Then

Func_FTP= False

Reporter.ReportEvent micFail, "InternetOpen", "Failed to setup environment."

Exit Function

end If



' Open ftp server
Extern.Declare micLong, "InternetConnect", "wininet.dll", "InternetConnectA", micLong, micString, micInteger, micString, micString, micDWord, micDWord, micDWord

Const INTERNET_DEFAULT_FTP_PORT = 21

Const INTERNET_SERVICE_FTP = 1

Dim hConnect

hConnect = Extern.InternetConnect(hInternet,ServerName,INTERNET_DEFAULT_FTP_PORT,UserName,Password,INTERNET_SERVICE_FTP,0, 0 )

If hConnect = 0 Then

Func_FTP= False

Reporter.ReportEvent micFail, "InternetConnect", "Failed to open internet connection."

Exit Function

end If

Dim bRetval

Select case lcase(Operation)

Case "getfile"
'Get file
Extern.Declare micInteger, "FtpGetFile", "wininet.dll", "FtpGetFileA", micLong, micString, micString, micInteger, micDWord, micDWord, micDWord

Const FTP_TRANSFER_TYPE_ASCII = 1

bRetval = Extern.FtpGetFile( hConnect, RemoteLocation, LocalLocation, False, 0, FTP_TRANSFER_TYPE_ASCII, 0 )

wait(2)

If Not CBool( bRetVal ) Then

Func_FTP= False

Reporter.ReportEvent micFail, "FtpGetFile " & RemoteLocation, "Failed to download file. at " & LocalLocation

Exit Function

end If

Case "putfile"
'put file
Extern.Declare micInteger, "FtpPutFile", "wininet.dll", "FtpPutFileA", micLong, micString, micString, micDWord

bRetval = Extern.FtpPutFile( hConnect,LocalLocation,RemoteLocation, 0 )

wait(2)

If Not CBool( bRetVal ) Then

Reporter.ReportEvent micFail, "FtpPutFile " & LocalLocation , "Failed to upload file. at " & RemoteLocation

Func_FTP= False

Exit Function

End If


Case "deletefile"
'delete file
Extern.Declare micInteger, "FtpDeleteFile", "wininet.dll", "FtpDeleteFileA",micLong,micstring

bRetval =Extern.FtpDeleteFile(hConnect,RemoteLocation)

wait(2)

If Not CBool( bRetVal ) Then

Reporter.ReportEvent micFail, "FtpPutFile", "Failed to delete file.--" & RemoteLocation

Func_FTP= False

Exit Function

End If


Case "findfile"

Dim WIN32_FIND_DATA

Extern.Declare micInteger, "FtpFindFirstFile", "wininet.dll", "FtpFindFirstFileA", micLong, micString,miclong, micDWord

bRetval =Extern.FtpFindFirstFile(hConnect,RemoteLocation,WIN32_FIND_DATA,INTERNET_FLAG_NO_CACHE_WRITE)

bRetval=left(bRetval,2)

If bRetVal=0 Then

Func_FTP= False

Reporter.ReportEvent micFail, "File Not Found ", "File Not found ."

Exit Function

End If

Case else

End Select



'Close Connections
Extern.Declare micInteger, "InternetCloseHandle", "wininet.dll","InternetCloseHandle", micLong

Extern.InternetCloseHandle( hConnect )

Extern.InternetCloseHandle( hInternet )


End Function

Comments

  1. useroneMay 31, 2011 at 5:09 AM

    How to access the file attributes of the file found using findfile functions

    ReplyDelete
  2. AshishJune 10, 2011 at 3:48 AM

    What attributes you are looking for:

    You can find the file size by using FtpGetFileSize

    http://msdn.microsoft.com/en-us/library/aa384159(v=VS.85).aspx

    ReplyDelete
  3. Manpwr ITNovember 25, 2011 at 6:09 AM

    Does the above library work for sFTP on port 22?

    I'm facing problems to upload a file... Can someone kindly mention the function call with parameters?

    ReplyDelete
  4. Ashish JindalDecember 6, 2011 at 3:46 PM

    no wininet.dll don't support sFTP.You can refer following commercial libraries or google it for several other commercial libraries: http://winscp.net/eng/docs/commandline http://www.weonlydo.com/FtpDLX/ftp-sftp-ssl-component.asp

    ReplyDelete

Post a Comment

Popular posts from this blog

Arrays

-
Image
Arrays: An array is a variable that holds multiple values of the same type. Arrays are of two types: One is fixed and another is dynamic. Fixed arrays can be simply defined by using dim statement: Dim arr(10) this array can contain eleven values as array always start from 0 ' Example: Dim arr(10) For i=0 to 10         arr(i)= "Value" & i Next Another simple method can be as follows: Dim arr arr=Array(1,2,3,4,5,6,7,8,9,10) This will define the array of size of 9 automatically having values from 1 to 10. To Define dynamic arrays we will not specify the dimensions or length of the array when declaring the array we will use the redim statement for specifying the dimensions like Dim arr()    ' this will initialize a array since we have not given dimensions in it we can not use it ReDim arr (10)   'this will initialize the array to a dimension of 10 i.e. 11 elements. Example: Di...
Read more

What is the difference between eval, execute and executeglobal.

-
Image
Eval is used for evaluating the syntax while execute and execute global are used for executing the statements. Lets talk about the Eval & Execute first. Eval always take the "=" as comparision while the execute take the "=" as assignment Example: test1 Sub test1 Dim z z="2" print eval("z=3")   & "---  Eval Print  - shuld return False " print eval("z=2")   & "---  Eval Print  - shuld return True " print z    & "---  Eval Print  - value of z should be unchanged" print execute ("z=8")   & "- should be blank as execute will not return anything" print z     & "---  Eexcute Print - should print 8"  End Sub Let talk about execute and executeglobal now  execute scope is local while the scope of executeglobal is global. Lets take an example to more clearly understand the same:  '--Execute  Dim x x="Local" print x &"  - Before Loop...
Read more

Sample Test Strategy for a MicroService Project with APIs only

-
Image
          <Project Name> Test Strategy   Overview <Project Overview To be added> This is a backend micro services project. The project is developed using Java. The system will have integration with externals systems like common databases and application. The project will also build the APIs which will be used by other services i.e. we will also work as Provider. Purpose <Project Purpose> In Scope:   Following will be covered during the life cycle of the project: Testing Types  Sub-Type  Owner  Stage  Environment  Tool/Framework  API Testing PACT QA Sprint Testing <TBU> Rest Assured API Framework with PACT API Functional <TBU> E2E Testing Integration Testing QA RTL <TBU> ...
Read more