Sign in to follow this  
Followers 0
shornw

FileRead problem

3 posts in this topic

I am probably being really dumb and missing something really obvious here but for some reason the FileRead isn't populating from the filename. The filename is working OK and the filenames appear in the MsgBox. I've spent so long looking I'm not seeing anything now!!

Any help greatly appreciated

$search = FileFindFirstFile("C:\test\Servers\*.*")  


If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
EndIf

While 1
    $file = FileFindNextFile($search) 
    If @error Then ExitLoop
    $open = FileOpen($file, 0)
    $read = FileRead($open)
    MsgBox(4096, "File:", $file)
    MsgBox(0, "", $read)
WEnd

FileClose($search)

[font='Comic Sans MS']Eagles may soar high but weasels dont get sucked into jet engines[/font]

Share this post


Link to post
Share on other sites



FileFindNextFile only returns the filename. This should work

$path = "C:\test\Servers\"
$search = FileFindFirstFile($path & "*.*") 


If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
EndIf

While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop
    $open = FileOpen($path & $file, 0)
    $read = FileRead($open)
    MsgBox(4096, "File:", $file)
    MsgBox(0, "", $read)
WEnd

FileClose($search)


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

It works a treat.... many thanks for that!


[font='Comic Sans MS']Eagles may soar high but weasels dont get sucked into jet engines[/font]

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0