ファイルの保存

すみません。VBAの初心者です。以下　教えていただけないでしょうか？ EXCELファイルを指定のフォルダへ保存したい。 (1)Cドライブに”サンプルフォルダ”というフォルダを作成します。 (2)現在開いているEXCELファイルを　Cドライブのサンプルフォルダに保存します 下の記述にでてくるsample.xls　と現在開いているファイルは同じ名前です。 （現在開いているファイルの指定がどのように記述したらよいのかよくわからないため以下のように記述しました） 私のやりたいことは要はメールで送ったEXCELファイルを、指定のドライブとフォルダに保存させたいのです。EXCEL2000を使っています Sub フォルダ作成() On Error GoTo fin filePath = "c:\サンプルフォルダ" MkDir filePath MsgBox "フォルダを作成しました" & filePath savefilename = filePath & "sample.xls" nowbook = Workbooks("・・・・")←現在開いているファイル nowbook.SaveAs Filename:=savefilename Exit Sub fin: Select Case Err.Number Case 75 MsgBox "同じ名前のフォルダが存在します" End Select End Sub