code:

---

$obj = createobject("word.application")
$objdoc = $obj.Documents.Open("c:\data\scripts\titlea.doc")
for each $property in $objdoc.BuiltinDocumentProperties
	? $property.name + "=" + $property.value
next
$objdoc.close
$obj.quit  

---

code:

---

$obj = createobject("word.application")
$objdoc = $obj.Documents.Open("c:\data\scripts\titlea.doc")
for each $property in $objdoc.BuiltinDocumentProperties
	? $property.name + "=" + $property.value
next
$objdoc.BuiltinDocumentProperties.item("Title").value="Title www"
$objdoc.BuiltinDocumentProperties.item("Author").value="Kenobi, Obi-Wan (Ben)"


$objdoc.close
$obj.quit 

---

code:

---

$filedir="\\server\drives$$\Listening\Singles"
$obj = createobject("Scripting.FileSystemObject")
$objdoc = $obj.getfolder("$filedir")
? $objdoc

$file= $obj.GetFile("$filedir\01--Wils.mp3")
? $file
? $file.name
for each $property in $file
	? $property.name + "=" + property.value
	next

$obj.quit 

---

code:

---

$filedir="\\server\drives$$\Listening\Singles"
$fso= createobject("Scripting.FileSystemObject")
$cd = $fso.getfolder("$filedir")

$shell = createobject("shell.application")
$foldir = $shell.namespace("$filedir")

$folder= $cd.Files
for each $file in $folder
	? $file.name+"	"+ $file.type
	$fparse = $foldir.parsename($file.name)
	$fparse.value
	next
$shell.quit
$fso.quit 

---

code:

---

 break on

$shell = createobject("shell.application")
? @ERROR + " - " + @SERROR
$files = $shell.namespace("C:\").items
? @ERROR + " - " + @SERROR
$file = $files.item("passage.txt")
? @ERROR + " - " + @SERROR
$title = $file.extendedproperty("title")
? @ERROR + " - " + @SERROR
$author = $file.extendedproperty("author")
? @ERROR + " - " + @SERROR

? "Title is " + $title
? "Author is " + $author

:end
Exit
 

---

Do I get a vote? Huh?

Hmm...maybe not - afraid you still can't set/edit these properties, read-only at the moment! Sorry!

[ 28 May 2002, 10:09: Message edited by: Breaker ]

code:

---

break on
$filedir="\\server\drives$$\Listening\Singles"
$fso = createobject("Scripting.FileSystemObject")
$cd = $fso.getfolder("$filedir")
$folder= $cd.Files

$shell = createobject("shell.application")
$foldir = $shell.namespace("$filedir").items

for each $file in $folder
;	? $file.name+"	"+ $file.type

	$fparse = $foldir.item($file.name)
	?	$fparse.extendedproperty("Name")+"	"
		$fparse.extendedproperty("Title")+"	"
		$fparse.extendedproperty("Artist")+"	"
		$fparse.extendedproperty("Album")+"	"
	next
$shell.quit
$fso.quit 

---