| |
▼ピアニッチ さん：
ちょっと 危なっかしいコードですね。
oFilN1 = Dir(path1 & "\" & day & "\" & "N1.jpg", vbNormal)
もし、N1.jpg が指定フォルダにない場合、oFilN1 は 空白値（""）になります。
存在していたとしても oFilN1 は N1.jpg だけ（ファイル名だけ）になります。
If Not myFso.fileExists(filespec:=oFilN1) Then
ここでファル名しか与えていない（パス文字列がない）のもきわめて気になります。
仮に N1.jpg が指定フォルダにあっても、FSOから見れば、どのフォルダ？
（カレントディレクトリーだと判断？）結果は 存在しないと判定 --> MoveFileは実行される。
N1.jpg がなければ、もちろん ないと判定され MoveFileが実行される。
myFso.MoveFile oFilN1, nFilN1
この時、oFilN1 の値はどうなっているでしょうか？
ちゃんとしたフォルダパス文字列も含んだファイルフルパス文字列になっているでしょうか？
そもそもが、If Not myFso.fileExists(filespec:=oFilN1) Then
ここでは何を判定したかったのですか？
で、
Replace(path1 & buffer1, "N1.jpg", "N1#1_001.jpg")
これは何をしているつもりでしょう。
単に、メモリー内の文字列を変換しているだけですけど？
|
|
β
- 17/2/11(土) 21:51 -
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
