File read and File run

[ashraful089]

how to read or run a file using its name with extension. it have to search with the folder  and sub folder

Run(@ComSpec & " /c " & Chr(34) & @ScriptDir & "\Multimedia.bat" & Chr(34), @ScriptDir) ; this line reads the Multimedia.bat file in the script directory. i need to read from the script directory and the consisting sub folders into that directory

Help plz
 

[Subz]

Basic example of getting all files in the current directory into an array and looping through the array.

#include <File.au3>

Local $aFiles = _FileListToArrayRec(@ScriptDir, "*.*", 1, 1, 0, 0)
    If @error Then Exit MsgBox(4096, "Error", "No files found.")

Local $sMessage = "File Name : "
SplashTextOn("Files", $sMessage, 500, 100, -1, -1, $DLG_TEXTLEFT, "")
For $i = 1 To $aFiles[0]
    ControlSetText("Files", "", "Static1", $i & " of " & $aFiles[0] & @CRLF & $sMessage & $aFiles[$i])
    Sleep(100)
Next
SplashOff()

 

Edited May 26, 2022 by Subz

[ashraful089]

@Subz i saw post or examples like that, but i don't need listing files into that directory.

Run(@ComSpec & " /c " & Chr(34) & @ScriptDir & "\Multimedia.bat" & Chr(34), @ScriptDir) ;

Here Program search Multimedia.bat the script directory (@ScriptDir) and run by this command, is there have anything for reading sub directory.

[Jos]

Please try explaining it in a different way as it really isn't clear what it is you like to get accomplished.

 

[ashraful089]

 

Run(@ComSpec & " /c " & Chr(34) & @ScriptDir & "\Multimedia.bat" & Chr(34), @ScriptDir)

Here " @ScriptDir "     Directory containing the running script. Only includes a trailing backslash when the script is located in the root of a drive.
Question is is there have any way for run a file from Script Sub directories?
I hope i am able to explain the question

[Subz]

Do you mean:

Run(@ComSpec & " /c " & Chr(34) & @ScriptDir & "\Subfolder\Multimedia.bat" & Chr(34), @ScriptDir & "\Subfolder")

 

[pixelsearch]

Maybe OP needs first a list of all sub folders (i.e. a 3rd parameter = 2 in _FileListToArrayRec)

His sentences "i need to read from the script directory and the consisting sub folders into that directory", then "i don't need listing files" seem to show this.

After getting a list of sub folders, it's up to him to know what to do if the file Multimedia.bat is found in several sub folders.

But I may be wrong in this explanation, let's wait and see...

[Musashi]

1 hour ago, ashraful089 said:

I hope i am able to explain the question

I guess I understood your question.

If the file Multimedia.bat is located in the root directory, then @ScriptDir returns C:\ . If you now add \Multimedia.bat, the result is :

C:\\Multimedia.bat -> (double backslash).

If @ScriptDir is located in a subfolder e.g. C:\Testfolder, then the result is C:\Testfolder\Multimedia.bat

Is this your problem ?

Edited May 26, 2022 by Musashi
text interpreted as emoji

[Musashi]

1 hour ago, ashraful089 said:

Only includes a trailing backslash when the script is located in the root of a drive.

To solve the problem with double backshlashes in the root directory, you could use e.g.

#include <WinAPIShPath.au3>
Run(@ComSpec & " /c " & Chr(34) & _WinAPI_PathAddBackslash (@Scriptdir) & "multimedia.bat" & Chr(34), @ScriptDir)

 

[ashraful089]

  

Here, i want to run Anydesk.exe without declaring its full path in the script (Search in Directory with its sub-directory), like the full path is unknown . the declaration in script for search will be in directory (App Installer Folder) So it will search sub directories under it until gets the desired file

[Subz]

You can still use _FileListToArrayRec to search for an individual item, example:

1. Search for AnyDesk.exe below @ScriptDir & "\App Installer" and return the full path
2. Search for A*.exe below @ScriptDir & "\App Installer", will give you an option to select between multiple files and return the full path to the file.

expandcollapse popup

#include <Array.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <File.au3>

Local $sAnyDesk = _SearchFolder(@ScriptDir & "\App Installer", "AnyDesk.exe")
MsgBox(4096, "Result for AnyDesk", (@error ? "Error : " & $sAnyDesk : "AnyDesk Path : " & $sAnyDesk))

Local $sSearch = _SearchFolder(@ScriptDir & "\App Installer", "A*.exe")
MsgBox(4096, "Result for A*", (@error ? "Error : " & $sSearch : "File Path : " & $sSearch))

Func _SearchFolder($_sSearchDir = @ScriptDir & "\App Installer", $_sSearchFile = "*.*")
    Local $aSearch = _FileListToArrayRec($_sSearchDir, $_sSearchFile, 1, 1, 0, 2)
    If @error Then Return SetError(1, 0, $_sSearchFile & " not found.")
    If $aSearch[0] = 1 Then
        ;~ One item found
        $sResult = $aSearch[1]
    Else
        ;~ Multiple items found
        $sResult = _SelectFile($aSearch)
        If @error Then Return SetError(1, 0, "No item selected.")
    EndIf
    Return SetError(0, 0, $sResult)
EndFunc

Func _SelectFile($_aSelectFiles)
    If Not IsArray($_aSelectFiles) Then Return SetError(1, 0, "")
    Local $sSelect = "", $iError = 1
    GUICreate("Select", 500, 70)
    GUISetFont(12, 400, -1, "MS San Serif")
    Local $idSelection = GUICtrlCreateCombo("", 10, 10, 480, 25, $CBS_DROPDOWNLIST)
    Local $idSelect = GUICtrlCreateButton("Select", 490-100, 40, 100, 25)
    GUICtrlSetData($idSelection, _ArrayToString($_aSelectFiles, "|", 1), $_aSelectFiles[1])
    GUISetState()
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $idSelect
                $sSelect = GUICtrlRead($idSelection)
                $iError = 0
                ExitLoop
        EndSwitch
    WEnd
    Return SetError($iError, 0, $sSelect)
EndFunc

 

[ashraful089]

@Subz  anydesk is present in the sub directory but script not getting it

 

[Subz]

Did you change the search path from @ScriptDir & "\App Installer"?  Actually tested this before posting so I know it works, please post the code you used.

[ashraful089]

expandcollapse popup

#include <Array.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <File.au3>

Local $sAnyDesk = _SearchFolder(@ScriptDir & "\AppInstaller", "AnyDesk.exe")
MsgBox(4096, "Result for AnyDesk", (@error ? "Error : " & $sAnyDesk : "AnyDesk Path : " & $sAnyDesk))

Local $sSearch = _SearchFolder(@ScriptDir & "\AppInstaller", "A*.exe")
MsgBox(4096, "Result for A*", (@error ? "Error : " & $sSearch : "File Path : " & $sSearch))

Func _SearchFolder($_sSearchDir = @ScriptDir & "\AppInstaller", $_sSearchFile = "*.*")
    Local $aSearch = _FileListToArrayRec($_sSearchDir, $_sSearchFile, 1, 1, 0, 2)
    If @error Then Return SetError(1, 0, $_sSearchFile & " not found.")
    If $aSearch[0] = 1 Then
        ;~ One item found
        $sResult = $aSearch[1]
    Else
        ;~ Multiple items found
        $sResult = _SelectFile($aSearch)
        If @error Then Return SetError(1, 0, "No item selected.")
    EndIf
    Return SetError(0, 0, $sResult)
EndFunc

Func _SelectFile($_aSelectFiles)
    If Not IsArray($_aSelectFiles) Then Return SetError(1, 0, "")
    Local $sSelect = "", $iError = 1
    GUICreate("Select", 500, 70)
    GUISetFont(12, 400, -1, "MS San Serif")
    Local $idSelection = GUICtrlCreateCombo("", 10, 10, 480, 25, $CBS_DROPDOWNLIST)
    Local $idSelect = GUICtrlCreateButton("Select", 490-100, 40, 100, 25)
    GUICtrlSetData($idSelection, _ArrayToString($_aSelectFiles, "|", 1), $_aSelectFiles[1])
    GUISetState()
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $idSelect
                $sSelect = GUICtrlRead($idSelection)
                $iError = 0
                ExitLoop
        EndSwitch
    WEnd
    Return SetError($iError, 0, $sSelect)
EndFunc

 

@Subzi used this code. i just deleted space from AppInstaller cause my folder is named like that.
But i was asked about is there have any small form one or two line code  which will lookup its directory and its sub directories too
 

Run(@ComSpec & " /c " & Chr(34) & @ScriptDir & "\AnyDesk.exe" & Chr(34), @ScriptDir)

 

[Subz]

Is your @ScriptDir your C:\Users\<Profile Name>?  Based on your screenshot above it's under %UserProfile%\Downloads\AppInstaller, so you should be able to use:

Run(_SearchFolder(@UserProfileDir & "\Downloads\AppInstaller", "AnyDesk.exe"))

 

[taurus905]

@Subz You always give such clear examples when replying to users.

I was looking for a way to search through a number of .txt files (in a folder) to find a certain set of characters and display them.

Sort of like a simple "Agent Ransack".

You're provided the perfect starting point for me to develop.

I'm feeling a little under the weather today, so this will have to wait for another day.

Thank you for being who you are.

taurus905