|
▼天馬 さん:
>参照を尋ねられるので、そこを、一発でC:\syouhinnmaster\textの中にある
>商品リスト_2009年11月16日.csv(日付は毎日変わる)ファイルを選ぶように
こんにちは。
フォルダ名とファイル名が分かっているのですから
ファイル選択の画面は必要ないと思いますが。
>Sub ファイル名変換()
> Dim FileNamePath, FileName, NewFileName, FolderPath, tail As String
> Dim i As Integer
>
> 'ファイルのパスを取得
FileNamePath = "C:\syouhinnmaster\text\商品リスト_2009年11月16日.csv"
> '参考:フォルダのパスを取得'
FolderPath = Left(SelectFileNamePath, InStrRev(SelectFileNamePath, "\"))
> 'ファイル名を取得
FileName = dir(FileNamePath)
>
> 'ファイル名から拡張子の分離
>
> '拡張子
tail = rightFileName, 3)
>
> NewFileName = "商品リスト_"
>
> '移動先のフォルダの選択
> FolderPath = FolderSelect
>
> 'ファイルの移動
> Name FileNamePath As FolderPath & "\" & NewFileName & "." & tail
>End Sub
こんな感じでしょうか
|
|