2011-07-22 3 views
3

私は答えを見つけることができないという単純な質問があります。VBScriptで日付を文字列に変換する

私はあるフォルダから別のフォルダにサブフォルダを移動するVBScriptを作成しています。移動するときに、サブフォルダ名に日付を追加したいと思います。私はフォルダ名に追加できるように、日付を文字列に変換する方法を見つけることができないことを除いて、すべて機能しています。

curDate = Month(Date) + "_" + Day(Date) + "_" + Year(Date) + "_" + Time 

If fs.FolderExists(rsltFldrPath) Then 

'Grab folder and Subfolders 
Set fldr = fs.GetFolder(rsltFldrPath) 
Set subFldr = fldr.SubFolders 

For each folder in subFldr 
    moveTo = archFldrPath + "\" +folder.name + curDate 
    fs.MoveFolder folder, moveTo 
Next 
End If 

助けていただければ幸いです。 ありがとう!

答えて

3

のVBScriptで文字列連結演算子は「&」であるので、クイックフィックスは、次のようになります。

>> curDate = Month(Date) & "_" & Day(Date) & "_" & Year(Date) & "_" & Time 
>> WScript.Echo curDate 
>> 
7_22_2011_5:32:55 PM 

あなたは正確な望ましい結果を指定した場合、私は達成するためのより良い方法を提案して喜びましたあなたの目標。

+0

Hm ...よく私の主な目標は「Results」というフォルダを持つことです。「Results_Month_Day_Year_Time」と呼ばれることになります。移動すると上書きされるファイルはありません。 – user856354

+0

「結果」の後のスペースはどうですか?あなたはPM/AMが欲しいですか?日と月はゼロで埋められるべきですか? –

2

Ekkehard.Horners時間はコロン(:)を削除するために再フォーマットする必要があるため、答えは機能しません。フォルダはコロンを持つことはできません。

試してください。

curDate = Month(Date) & "_" & Day(Date) & "_" & Year(Date) & "_" & Time 

Replace(CurDate,":","-") 

私はより簡潔な答えがあると確信しているが、それはアンダースコアが重複の可能性を否定しますようにもパディングは問題ではありません動作します。

私はコメントしたかったが、十分な担当者がいない。

関連する問題