FileSystemObject -- Help Please

xanderxvr · 31-Jan-2005, 04:24 AM #1

i am not sure if i understand the assignment that says "

----------------------------------------------------------------------
'1. Connect to the folder that was listed on the sheet (w:\boseo\)
fso.GetFolder

'There are probably going to be several folders and files so I will have to loop through
' these items to find just the text files

2.
'Start loop
3. 'If this is a text file...
4. 'Write the name of the file to the screen
5. 'I may need use this file name later (hint) so goahead and put it in
' a variable so we can call it on the page...
6. 'End loop

-------------------------------------------------------------------
i tried to program in this code but he said its not right. i don't understand to read this instruction above... pleaes help me.. thanks...

-------------------------------------------------------------------
<%@ Language=VBScript %>
<% Option Explicit %>

<HTML>
<BODY>
<%
Sub AddNewFolder(w:\boseo, foldername)
Dim fso, f, ts

Set fso = Server.CreateObject("Scripting.FileSystemObject")
set f = fso.GetFolder("w:\boseo")

If fso.getfolder("w:\boseo") = true then
set f = fso.CreateTextFile("w:\boseo\hello.txt")
Else
set f= fss.openFile("w:\boseo\hello.txt")
End If

%>

</BODY>
</HTML
----------------------------------------------------
I tried this code but he told me its not correct... i still don't understand his instruction.... pleaes help me out... thanks...
-------------------------------------------------------------

<%@ Language=VBScript %>
<% Option Explicit %>

<HTML>
<BODY>
<%
Sub AddNewFolder(w:\boseo, foldername)
Dim fso, f, fc, ts, nf

Set fso = Server.CreateObject("Scripting.FileSystemObject")
set f = fso.GetFolder("w:\boseo")
set fc = f.subfolders

If fso.getfolder("w:\boseo") <> "" then
set nf = fc.add(w:\boseo)
Else
set nf = fc.add("w:\boseo\hello.txt")
End If
End Sub
%>

</BODY>
</HTML
----------------------------------------
he said above is not right he said i didn't understand the concepts and follow his instructions....... please help me out... thanks lots...

any idea or suggestion?... please post correct codes here so i can understand better.. thanks thanks thankst hanks lots lots......

Rockn · 31-Jan-2005, 10:20 AM #2

You have not looped through any folders looking for the text files. There are some good tutorials on the internet if you Google for them. Here is a desciption of all of the FSO Objects:
http://www.juicystudio.com/tutorial/....asp#fsoobject

xanderxvr · 01-Feb-2005, 02:11 PM #3

dim f2
'dim ts
Set f2 = fso.GetFile("w:\boseo\" & strFile)
Set ts = f2.OpenAsTextStream(1,-2)

do while ts.AtEndOfStream = False
Response.Write ts.ReadLine & "<BR>"

'(how can i collect the vaues from the file and put them in the right order? How can i create a variable to store all the data in and then i can just call that variable later?)

loop
--------------------------------
how can i collect the vaues from the file and put them in the right order?

How can i create a variable to store all the data in and then i can just call that variable later?

Rockn · 02-Feb-2005, 01:55 PM #4

There isn no way to sort them unless you loop through the folders and then the files. I saw one piece of code at one time that allowed for sorting but it was wayyyy to cumbersome. You already have the variable named ts for your text stream.

Search
Search in:
Show Threads Show Posts
Advanced Search

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)