Tech Support Guy banner
  • Please post in our Community Feedback thread for help with the new forum software! If you are having trouble logging in, please Contact Us for assistance.
Status
Not open for further replies.
1 - 4 of 4 Posts

·
Registered
Joined
·
3 Posts
Discussion Starter · #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 %>

<%
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

%>

<% Option Explicit %>

<%
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
%>

</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......
 

·
Registered
Joined
·
3 Posts
Discussion Starter · #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 & "
"

'(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?
 

·
Registered
Joined
·
21,334 Posts
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.
 
1 - 4 of 4 Posts
Status
Not open for further replies.
Top