Hallo zusammen,
in meinem Sendto Ordner habe ich eine Datei Namens
„Dateinamespeichern.vbs“, diese funktioniert super.
Nur leider ist die Ausgabe-Datei einfach nur als Text, ich hätte
aber gerne die Ausgabe als HTMH,(wenn ich auf den kopierten Pfad
klicke öffnet sich die Datei, oder der Ordner). Es wäre ganz
toll, wenn mir jemand meine vorhandene vbs abändern könnte.
************************************************************
Option Explicit
Dim fso, WSHShell, ZielDatei, oArgs, Datei, FileOut, Text
Set WSHShell = WScript.CreateObject(„WScript.Shell“)
Set fso =
WScript.CreateObject(„Scripting.FileSystemObject“)
ZielDatei = WScript.ScriptName & „.txt“
ZielDatei = „c:\DateiName.txt“
set oArgs = Wscript.Arguments ’ hole
Argumentsauflistung
If oArgs.Count > 0 Then ’ gibt es
Argumente?
Datei = oArgs.item(0) ’ erstes
Argument
Else
Text = „Das Ganze funktioniert so:“
& vbCRLF & vbCRLF
Text = Text & „Mit der Mouse ein Datei auf das Skript ziehen
und“ & vbCRLF
Text = Text & „fallen lassen - JETZT werden die
Dateiinformationen“ & vbCRLF
Text = Text & „in der Datei " & ZielDatei & "
gespeichert.“ & vbCRLF & vbCRLF
MsgBox Text, , WScript.ScriptName
WScript.Quit
End If
if fso.FileExists(Datei) then
wshshell.Popup fso.GetFile(Datei).Path , 2,
WScript.ScriptName, vbExclamation
Set FileOut = fso.OpenTextFile( ZielDatei, 8, true)
fileOut.WriteLine (Datei)
fileOut.Close
Set FileOut = Nothing
End If
if fso.FolderExists(Datei) then
wshshell.Popup Datei , 2, WScript.ScriptName, vbExclamation
Set FileOut = fso.OpenTextFile( ZielDatei, 8, true)
FileOut.WriteLine (Datei)
FileOut.Close
Set FileOut = Nothing
End If
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Erstmal vielen Dank,
Tina
