'v2.9********************************************************
' File:   DateiNameSpeichern.vbs
' Autor:  dieseyer@gmx.de 
'         dieseyer.de
' 
' Mit der Maus eine Datei / Ordner auf das Skript ziehen und
' der komplette Pfad wird in einer Datei gespeichert . . .
' oder man legt das Skript im "Send To"-Ordner ab und kann
' dann mit der rechten Maus-Taste die Info speichern.
'************************************************************
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 Maus 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