Sub extractThumbnail(folder As String, rsscontent As string)
	Dim view As NotesView
	Dim doc As NotesDocument
	Dim carpeta As String
	Dim returnFile As Integer
	Dim outputFolder As String
	Dim extract As Integer
	Dim vRet As Variant
	Dim srcFile As String
	Dim x As Integer
	
	Dim re As Variant
	Dim matches As Variant
	Dim match As Variant
	Dim i As Integer
	
	extract = 0
	outputFolder = "\\PCJESUS\la-tribu\images\"
	'comprobamos si tiene fichero dentro del content 

	'Print "SRCFILE: " &  folder
	
	
	vRet = Split(rsscontent, "src=""")
	srcFile=vRet(0)
	
	If UBound(vRet)>0 Then
		For x = 1 To UBound(vRet)
			If Left(vRet(x),4)<>"http" Then
				 
				Print "SRCFILE: " &  folder & "-" & vRet(x) & "-" & UCase$(Left(rsscontent, 10)) & " vRet=" & UBound(vRet)
			End If
		Next
	End if

	
	
	'If UBound(vRet)>0 Then
	'	For x = 1 To UBound(vRet)
	'		Print "SRCFILE: " folder & "-" & vRet(x)
	'	Next
	'End if
	
	
	
	If IsNumeric(folder) Then
		carpeta = CInt(folder)
	Else
		carpeta =  "0000"
	End If
	outputFolder = outputFolder & carpeta
	returnFile =  FileFolderExists(outputFolder)
	
	'Returns
	'  2 = Directory exists
	'  1 = File exists
	'  0 = File/Directory does not exist
	' -1 = Directory for file does not exist
	' -2 = Other error
	Select Case returnFile
		Case 2       : extract = 1
		Case 1		 : Print "Ya existe el fichero en el directorio " & outputFolder
		Case 0       : MkDir outputFolder
		Case -1      : MkDir outputFolder
		Case Else    : Print "Error en extractThumbnail al crear:" & folder
	End Select
	
'	MkDir "\\PCJESUS\la-tribu\imatges"
	' src="http://192.168.1.253:8181/proves/la-tribu.nsf/dx/t_fs2015111001.jpg/$file/t_fs2015111001.jpg"

	Set view = db.Getview("images")
	If extract = 1 Then
		
	End If
	
	
	
End Sub