\documentclass{article}
\usepackage{Sweave}

\begin{document}

<<>>=
message("~~~source: ", SweaveGetSourceName())
@

\end{document}