Variable filename 1

[RNF0528]

I would like to set a variable in my script to = a file name in a folder.

for example.

C:\VBS\100.txt

I want to be able to change the filename to different names like 101.txt and 102.txt.

and have a variable be set to what ever the filename is in the folder c:\VBS.

Code for setting the variable i have.
ScreenVar = ("C:\VBS\*.txt")

End result would be setting the ScreenVar = 100.txt

 

[PHV]

What have you tried so far and where in your code are you stuck ?
Have a look here:

http://msdn2.microsoft.com/en-us/library/z9ty6h50.aspx

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[RNF0528]

The output in the log is:

PC: PCNAME, 10:23:03 AM, 2/20/2009, Screen Saver Version : C:\TEMP5\*


Here is my code below:

'Pictures go here : \\Server\Share$\ScreenSaver\Files

' Set Scripting Variables

Set FileSystem = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set WshNetwork = CreateObject("WScript.Network")


ScreenVar = "C:\TEMP5\*"

'Log to server who is getting installed and what version

Set TextFile = FileSystem.OpenTextFile("\\Server\Share$\ScreenSaver\Log\ScreenSaver.log", 8,True)

Textfile.WriteBlankLines(1)

TextFile.Writeline "PC: " & WshNetwork.ComputerName & ", " & time & ", " & Date & ", Screen Saver Version : " & ScreenVar

'Reset it

Set FileSystem = Nothing
Set WshShell = Nothing
Set WshNetwork = Nothing
Set ScreenVar = Nothing

'End Script

Wscript.Quit

 

[RNF0528]

Would it be easier if i set the variable from the last line of a text file?

 

[PHV]

What do you want to do ???

 

[RNF0528]

I would like to pull the variable from a filename.

 

[PHV]

Sorry, I quite don't understand your issue.

 

[RNF0528]

I want to have the variable ScreenVar set to what ever file is in this folder. I will keep one file in the folder.

ScreenVar = "C:\TEMP5\*"

 

[PHV]

Something like this ?
For Each f In FileSystem.GetFolder("C:\TEMP5").Files
ScreenVar = f.Name
Next

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[takman]

Hi,
Here's my version:


ScreenVar = ""
if filesystem.folderexists("C:\TEMP5") then
files = filesystem.getfolder("C:\TEMP5").files
if files.count > 0 then
ScreenVar = files(0).name
end if
end if
if ScreenVar = "" then
ScreenVar = "default value"
end if

 

[RNF0528]

Ok so now the error message is wrong number of arguments or invalid property assignments:

line 12
char 5

here is the code

'Pictures go here : \\Server\Share$\ScreenSaver\Files 

' Set Scripting Variables

	Set FileSystem = CreateObject("Scripting.FileSystemObject")   
	Set WshShell = CreateObject("WScript.Shell")
	Set WshNetwork = CreateObject("WScript.Network")
	set files = CreateObject("Scripting.FileSystemObject")

ScreenVar = ""
if filesystem.folderexists("C:\TEMP6") then
    files = filesystem.getfolder("C:\TEMP6").files
    if files.count > 0 then
        ScreenVar = files(0).name
    end if
end if

if ScreenVar = "" then
    ScreenVar = "default value"
end if


'	ScreenVar = "C:\TEMP5\*"
'Log to server who is getting installed and what version
	
	Set TextFile = FileSystem.OpenTextFile("\\Server\Share$\ScreenSaver\Log\ScreenSaver.log", 8,True)
	
	Textfile.WriteBlankLines(1)
	
	TextFile.Writeline "PC: " & WshNetwork.ComputerName & ", " & time & ", " & Date & ", Screen Saver Version : " & ScreenVar

'Reset it

	Set FileSystem = Nothing
	Set WshShell = Nothing
	Set WshNetwork = Nothing
	Set ScreenVar = Nothing
         
'End Script

 

[PHV]

Seems like you didn't try my suggestion ...
What about this ?

Set FileSystem = CreateObject("Scripting.FileSystemObject")   
ScreenVar = "Not found"
For Each f In FileSystem.GetFolder("C:\TEMP6").Files
  ScreenVar = f.Name
Next
MsgBox ScreenVar

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[RNF0528]

Thank you very much it worked! PHV once agian you answered another question for me.