If I run this in debug mode $filename comes up as "." and I see the actual file after dir() . I cant figure out how to get the file into $filename. I am basically trying to parse a directory that has filenames of computers which do not have extensions. I read the manual on dir and the example is not working for me. any help would be great.

[ 17 September 2001: Message edited by: j95661 ]

code:

---

break on
$FileName = Dir("C:\TEMP")
While $FileName <> “” and @ERROR = 0
  ? $FileName
  Dir() ; retrieve next file
Loop
get $

---

If I modify as follows:

code:

---

break on
$FileName = Dir("C:\TEMP\*.*")
While $FileName <> “” and @ERROR = 0
  ? $FileName
  Dir() ; retrieve next file
Loop
get $

---

I get the following results:

...
.FFINQU32.ENU
.New Text Document (2).txt
.New Text Document.txt
.

What do you get?

...
.temp.txt
.
the period is being written as the value of $filename
then the file temp.txt is coming after Dir()

that is whats boggling me. I want to get rid of "." and I just want the file name to be in the variable $filename.

$filename = Dir("c:\temp")
while $filename <> "" and @ERROR = 0
? $filename
Dir()
loop

$filename seems to be being set to the root of the directory, which is ".". Dir() is calling the next value in $filename but it is never being used. this is what I tried and it works.

$filename = Dir("c:\temp")
while $filename <> "" and @ERROR = 0
$host = Dir()
? $host
Dir()
loop

this outputs what I want. $filename seems to be acting as an array, but in the example it is never being incremented to the next value, except after dir().

thanks

code:

---

break on
$FileName = Dir("C:\TEMP\*.*")
While $FileName <> “” and @ERROR = 0
	? "$$FileName = " + $FileName
	$result = Substr($FileName,2,LEN($FileName))
	? "$$result = "$result
	Dir() ; retrieve next file
Loop
get $

---

well back to the drawing board. I just might have to call a For loop if this will not work.

ex.
Shell "%compspec% /c ping $filename"

that seems to be my problem all along. When I run debug and look at what is being sent to shell, I get the whole directory listing. This must not be a variable that is able to be sent to a shell command. If anyone knows of a way of doing this Id stop ranting about this. :-)

Thanks again

code:

---

break on
:again
? "Type PC Name and hit [Enter]"
?
Gets $PC
If $PC = ""
	goto nomore
endif
$FN = Dir("C:\TEMP\$PC")
While $FN <> "" and @ERROR = 0
	beep
	? "Found "$FN
	Dir()
Loop
goto again
:nomore

---

Check out the DIR() function example in the "new" RC3 manual

-Shawn

[hint: a typo was corrected]

break on$
$filename = Dir("c:\temp")
While $filename <> "" and @error =0
Shell "%comspec% /c ping $filename"
$filename = DIR()
loop

if I use that context with 3.61 it doesnt work. That is the current problem sending the result of $filename to shell.

code:

---

break on
$FileName = Dir("C:\TEMP\*.*")
While $FileName <> "" and @ERROR = 0
	If len($FileName) > 5
		Shell "%comspec% /c ping $filename"
	EndIf
	$FileName = Dir() ; retrieve next file
Loop

get $

---

Thanks again for you help.

You do not have to worry about directory entries like"." or ".." or any other directory listing that may exist in the folder.

code:

---

$Folder = "c:\"
;set the initial DIR() pointer
$return = dir($folder + "*.*")
? "Now listing all files in " + $folder
while @error = 0
	
	;this will only be true for files, to list only folders set it to equal 16
	IF (getfileattr($folder + $return) & 16) = 0	
			? $return
	endif
	;get the next item in the folder
	$return = dir()
loop

---

Bryce

The problem wasn't: you are running an older version of kixtart, but the
example in your the documentation wasn't correct.
In kixtart 3.63 release it works great. Older versions 3.60 .. 3.62 not checked.
Greetings.