Como Instalar O Fso?

cyberalexxx · Julho 28, 2004

alguém sabe o baixa o componente FSO (FileSystemObject)

Grato

dark0 · Julho 28, 2004

hmm

pra qual windows?

Eu sei que no XP não precisa fazer nada pra rodar FSO, mas no 98, eu nunca testei..

cyberalexxx · Julho 28, 2004

xiii Ai que a coisa ficou preta

Tenho o Windows Xp e ta dando erro

deve ser problana no codigo então.

vou dar uma olhada

valeu

dark0 · Julho 28, 2004

bota aí a descrição do erro..

cyberalexxx · Julho 28, 2004

olha o erro ai:

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01AD)

O componente do ActiveX não pode criar objeto: 'Scripting.FileSystemObject'

/intranet/sendmail.asp, line 128

linha de erro:

Set fso = CreateObject("Scripting.FileSystemObject")

Codigo completo:

Este codigo eu achei na net: ele faz o upload do arquivo para o servidor para poder ser enviado pelo CDONTS:

<HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=unicode">
<%response.buffer=true
Func = Request("Func")

if isempty(Func) then
Func = 1
end if
Select case Func
case 1
%>
</HEAD>
<BODY>
<P><FONT face=Arial color=blue size=4><STRONG>Select a File
to send as attachment.</STRONG></FONT> </P>
<FORM ENCTYPE="multipart/form-data" ACTION="sendmail.asp?func=2" METHOD=post id=form1 name=form1>
<table>
<tr><td><FONT face=Arial><STRONG></STRONG></FONT>
<tr><td><FONT face=Arial><STRONG>File
Name...</STRONG></FONT></td></tr>
<tr><td><INPUT NAME=File1 SIZE=30 TYPE=file><br></td></tr>
<tr><td align=left><input type="submit" value="Send!" ></td></tr>
<tr><td></td></tr>
</table>
<%

case 2
ForWriting = 2
adLongVarChar = 201
lngNumberUploaded = 0

'Get binary data from form
noBytes = Request.TotalBytes
binData = Request.BinaryRead (noBytes)

'convert the binary data to a string
Set RST = CreateObject("ADODB.Recordset")
LenBinary = LenB(binData)

if LenBinary > 0 then
RST.Fields.Append "myBinary", adLongVarChar, LenBinary
RST.Open
RST.AddNew
RST("myBinary").AppendChunk BinData
RST.Update
strDataWhole = RST("myBinary")
End If

'Creates a raw data file for with all data sent. Uncomment for debuging.
'Set fso = CreateObject("Scripting.FileSystemObject")
'Set f = fso.OpenTextFile(server.mappath(".") & "\raw.txt", ForWriting, True)
'f.Write strDataWhole
'set f = nothing
'set fso = nothing

'get the boundry indicator
strBoundry = Request.ServerVariables ("HTTP_CONTENT_TYPE")
lngBoundryPos = instr(1,strBoundry,"boundary=") + 8
strBoundry = "--" & right(strBoundry,len(strBoundry)-lngBoundryPos)

'Get first file boundry positions.
lngCurrentBegin = instr(1,strDataWhole,strBoundry)
lngCurrentEnd = instr(lngCurrentBegin + 1,strDataWhole,strBoundry) - 1
do while lngCurrentEnd > 0
'Get the data between current boundry and remove it from the whole.
strData = mid(strDataWhole,lngCurrentBegin, lngCurrentEnd - lngCurrentBegin)
strDataWhole = replace(strDataWhole,strData,"")

'Get the full path of the current file.
lngBeginFileName = instr(1,strdata,"filename=") + 10
lngEndFileName = instr(lngBeginFileName,strData,chr(34))

'Make sure they selected at least one file.
if lngBeginFileName = lngEndFileName and lngNumberUploaded = 0 then

Response.Write "<h2> The following error occured.</h2>"
Response.Write "You must select at least one file to upload"
Response.Write "<br><br>Hit the back button, make the needed corrections and resubmit your information."
Response.Write "<br><br><input type='button' onclick='history.go(-1)' value='<< Back' id='button'1 name='button'1>"
Response.End

end if

'There could be one or more empty file boxes.
strFilename = mid(strData,lngBeginFileName,lngEndFileName - lngBeginFileName)

'Creates a raw data file with data between current boundrys. Uncomment for debuging.
'Set fso = CreateObject("Scripting.FileSystemObject")
'Set f = fso.OpenTextFile(server.mappath(".") & "\raw_" & lngNumberUploaded & ".txt", ForWriting, True)
'f.Write strData
'set f = nothing
'set fso = nothing

'Loose the path information and keep just the file name.
tmpLng = instr(1,strFilename,"\")

do while tmpLng > 0
PrevPos = tmpLng
tmpLng = instr(PrevPos + 1,strFilename,"\")
loop

FileName = right(strFilename,len(strFileName) - PrevPos)

'Get the begining position of the file data sent.
'if the file type is registered with the browser then there will be a Content-Type
lngCT = instr(1,strData,"Content-Type:")

if lngCT > 0 then
lngBeginPos = instr(lngCT,strData,chr(13) & chr(10)) + 4

else
lngBeginPos = lngEndFileName
end if

'Get the ending position of the file data sent.
lngEndPos = len(strData)

'Calculate the file size.
lngDataLenth = lngEndPos - lngBeginPos
'Get the file data
strFileData = mid(strData,lngBeginPos,lngDataLenth)

' Create the file, change the path to the path U use for temp storage of the file
' make sure you have the IUSR_YOURCOMPUTER granted WRITE access to the uploads dir
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(server.mappath("../fileupload/uploads") & "\" & FileName, ForWriting, True)
f.Write strFileData

' Get full Path, you need it for deleting the file later
Dim ThisFile
ThisFile = server.MapPath("../fileupload/uploads") & "/" & filename

lngNumberUploaded = lngNumberUploaded + 1

' destroy f, free memory
set f = nothing

'Get then next boundry postitions if any
lngCurrentBegin = instr(1,strDataWhole,strBoundry)
lngCurrentEnd = instr(lngCurrentBegin + 1,strDataWhole,strBoundry) - 1
loop

' CDO mail object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

' CDO mail setttings
with objCDOMail
.Body = "TestMailtje met attachment!"
.Subject = "testing 123"
.From = "youraspwebapp@withattachment.com"
.To = "Jeroen@trylogical.com"
'.Cc = strCC
.MailFormat = 0
.AttachFile ThisFile
.Send
end with

' destroy object, free memory
set objCDOMail = nothing

' Now the file in the uploads dir can be deleted
fso.DeleteFile ThisFile

' Destroy FileSystemObject, Free memory
set fso = nothing

Response.Write "Uw mail is verstuurd!</h2>"
Response.Write "<br><br><input type='button' onclick='document.location=" & chr(34) & "sendmail.asp" & chr(34) & "' value='<< Back' id='button'1 name='button'1>"

end select

%></FORM>
</BODY>
</HTML>

cyberalexxx · Julho 28, 2004

executei aquele codigo (tópico de tutoriais) que verifica os componentes do servidor e não apareceu o FSO.

Deividy · Julho 28, 2004

quer uma recomendação istala de novo o windows XP Pro

cyberalexxx · Julho 28, 2004

Consegui!!!

O problema era o seguinte:

O windows XP realmente vem com o componente só que ele não fica registrado no server.

Dai foi só registrar, o nome da DLL é scrrun.dll

Outra coisa:

O codigo que eu postei antes, funciona muito bem, ele faz o upload do arquivo local para o servidor sem nenhum componente adicional, depois envia o anexo pelo CDONTS e apaga o arquivo temporário gerado.

T+

valeu

Deividy · Julho 28, 2004

legal esse seu script, uma coisa eu queria verificar o tamanho do arquivo tem como?

com esse script

cyberalexxx · Julho 28, 2004

legal esse seu script, uma coisa eu queria verificar o tamanho do arquivo tem como?
com esse script

Para ver o tamanho do arquivo de um response.write na variavel nobytes

bareta · Julho 28, 2004

falando em componentes alguém sabe se a dll que tem no XP do cdosys... funciona????

Deividy · Julho 28, 2004

achei muito legal esse código mais não teira como eu verificar se o que o cara esta fazendo upload é uma imagem ou não?

não entendo muito de FSO

cyberalexxx · Julho 29, 2004

O nome do arquivo fica armazenado na variavel thisfile.

para verificar se o arquivo é uma imagem pegue os tres ultimos caracteres da string thisfile e compare com as extensoes que voce quer permitir

T+

Deividy · Julho 29, 2004

valeu pela dica vou testar obrigado

Entrar

Como Instalar O Fso?

Pergunta

Link para o comentário

Compartilhar em outros sites

13 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns