Visual Basicスクリプトでワイルドカードファイルの名前を変更します。

Question

新しいユーザーがここにあります。私は、私が比較的簡単な仕事だと思うものの高低を調べてきました。 Visual Basic Sc​​ript内でワイルドカード（FileNamexxx.xls）を使用してファイルの名前を変更したいとします。 Visual Studioでこのスクリプトを実行します。

ご迷惑をおかけして申し訳ありません。

私はこのフォルダに1つのファイルしか持っていないので、私はループが必要であるとは思わない。 DTSスクリプトタスク： プロジェクト名：DTSスクリプトタスクは、ユーザーコードで例外が発生しました ランタイムエラーST_87aa37cb3ec4469d9eca36223aae33ee 実際のファイル名は「CellModelHistory1251234.xls」

Imports System 
Imports System.IO 
Imports System.Text 
Imports System.Windows.Forms 
Imports Microsoft.SqlServer.Dts.Runtime 

<Microsoft.SqlServer.Dts.Tasks.ScriptTask.SSISScriptTaskEntryPointAttribute()> _ 
<System.CLSCompliantAttribute(False)> _ 
Partial Public Class ScriptMain 
    Inherits Microsoft.SqlServer.Dts.Tasks.ScriptTask.VSTARTScriptObjectModelBase 

    Public Sub Main() 
     Dim OldName As String 
     Dim NewName As String 
     OldName = Dir("X:\Database Build\SQL Downloads\Temp\CellModel*.xls") 
     NewName = Dir("X:\Database Build\SQL Downloads\Temp\CellModelHistory.xls") 
     FileSystem.Rename(OldName, NewName) 
    End Sub 

End Class 

が実行されると、私は次のエラーを受け取るあります呼び出しの対象によって例外がスローされました。

at System.RuntimeMethodHandle._InvokeMethodFast(IRuntimeMethodInfo method, Object target, Object[] arguments, SignatureStruct& sig, MethodAttributes methodAttributes, RuntimeType typeOwner) 
at System.RuntimeMethodHandle.InvokeMethodFast(IRuntimeMethodInfo method, Object target, Object[] arguments, Signature sig, MethodAttributes methodAttributes, RuntimeType typeOwner) 
at System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture, Boolean skipVisibilityChecks) 
at System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture) 
at System.RuntimeType.InvokeMember(String name, BindingFlags bindingFlags, Binder binder, Object target, Object[] providedArgs, ParameterModifier[] modifiers, CultureInfo culture, String[] namedParams) 
at Microsoft.SqlServer.Dts.Tasks.ScriptTask.VSTATaskScriptingEngine.ExecuteScript() 

Answer 1

これは完全なコードですか？ FileSystemはインスタンス化されていません。

Answer 2

あなたにも、実際のディレクトリで唯一の.xlsファイルで、あなたはすべてを行うためにSystem.IOからメソッドを使用することができますが確認することがあります。

Dim srcDir As String = "X:\Database Build\SQL Downloads\Temp" 
Dim files = IO.Directory.GetFiles(srcDir, "*.xls") 
If files.Count = 1 Then 
    Dim destFile = IO.Path.Combine(srcDir, "CellModelHistory.xls") 
    IO.File.Move(files(0), destFile) 
Else 
    Throw New Exception("No .xls or more than one .xls file in " & srcDir) 
End If