Comments by Member 14156312 (Top 26 by date)

Hi @MacieJ Los, I tried your code, but the checkBox show only the folder, not the file inside the folder.
and also return this error Method invocation failed because [System.Windows.Forms.CheckBox] does not contain a method named 'op_Addition'.

I tried AutoScaleMode.
$form1.AutoScaleMode = "Font"
$form1.AutoScale = $true

BUT it does NOT work. The GUI still mesh up once I execute from different screen resolution

I use Diskpart, then Select disk, and Detail Disk. I do this in CMD

I tried this, but It does not include Location Path

Oh I see. That's make sense. Thanks

Ya, I know it works to Listing All Files Found In the path.
But I have to do this "DISM.exe /capture-ffu /imagefile=e:\WinOEM.ffu /capturedrive=\\.\PhysicalDrive0 /name:disk0 /description:"Windows 10 FFU" as my parameter progress bar

I updated the script, I put the command for capturing the image to variable result.
I am looking forward for your advice. Thank you so much

I refer to that example. But I still don't have any idea to fix my problem

No, It doesnt contain spaca for the second file.

But, I can't figure out how to check whether the data exist or not

"6J" . three of the echo found messages works.

Ya, the string ("2w", "fr", "6") contain of the TST.txt file.

you mean this code?
It does not work too.

Dim objFile, tmpStr, objFSO
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile= objFSO.OpenTextFile("C:\Users\TST.txt", ForReading)


tmpStr = objFile.ReadAll


Dim b1, b2, b3
b1 = False : b2 = False : b3 = False

If Instr(1, tmpStr, "2w", vbTextCompare) > 0 Then
b1 = True
End If
If Instr(1, tmpStr, "fr", vbTextCompare) > 0 Then
b2 = True
End If
If Instr(1, tmpStr, "6J", vbTextCompare) > 0 Then
b3 = True
End If
If b1 And b2 And b3 Then
WScript.Echo "Found"
End If

What do you mean? I dont change anything in thats code, I just remove vbTextcompare

But It still not work, It cannot check the string found or not in the text file.


Dim b1, b2, b3
Dim objFile, tmpStr, objFSO
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile= objFSO.OpenTextFile("C:\Users\TST.txt", ForReading)

tmpStr = objFile.ReadAll
WScript.Echo tmpStr

b1 = False : b2 = False : b3 = False
If Instr(1, tmpStr, "2w") > 0 Then
b1 = True
End If

If Instr(1, tmpStr, "fr") > 0 Then
b2 = True
End If

If Instr(1, tmpStr, "6J") > 0 Then
b3 = True
End If

If b1 And b2 And b3 Then
WScript.Echo "Found"

End If

But It not work. with this code below

But It look not work
Dim b1, b2, b3
Dim objFile, tmpStr, objFSO
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile= objFSO.OpenTextFile("C:\Users\TT.txt", ForReading)

tmpStr = objFile.ReadAll
WScript.Echo tmpStr

b1 = False : b2 = False : b3 = False
If Instr(1, tmpStr, "2w") > 0 Then
b1 = True
End If
If Instr(1, tmpStr, "fr") > 0 Then
b2 = True
End If
If Instr(1, tmpStr, "6J") > 0 Then
b1 = True
End If
If b1 And b2 And b3 Then

WScript.Echo "Found"
End If

Thanks, great solution. But I still get error name redifined vbTextCompare