ここから本文です

UWSC ファイル移動 Google ドライブから移動できない件について 下記プログラム...

cho********さん

2016/6/210:29:37

UWSC ファイル移動 Google ドライブから移動できない件について

下記プログラムを作成し、「Google ドライブ」から「移動先」のフォルダへファイルを移動しようと考えています。

「デスクトップ」から「移動先」はできるのですが、「Google ドライブ」からは移動できないのでしょうか。改善方法があればご教示お願い致します。


STOPFORM(FALSE)
Call ExcelConst.uws
GETTIME()
Dim FROM_URL, TO_URL
Dim fs=CreateOLEObj("Scripting.FileSystemObject")
Dim upf=TRIM(DOSCMD("ECHO %USERPROFILE%"))
Excel = GETACTIVEOLEOBJ("Excel.Application")
ws = Excel.ActiveWorkbook.Worksheets("管理表")
最終行 = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row


For i = 2 To 最終行

ファイル移動用タイトル = Excel.Worksheets("管理表").Cells(i, 8).Value
ファイルタイトル追加用 = Excel.Worksheets("管理表").Cells(i, 1).Value


Ifb ファイル移動用タイトル = ""

//ファイル移動
cnt=GETDIR( upf+"\Google ドライブ", "*"+ファイルタイトル追加用+"*"+".wmv", FALSE,

"3")
maxx=10
IF (cnt < maxx) THEN maxx=cnt
FOR n=0 TO maxx-1
FROM_URL=upf+"\Google ドライブ\"+GETDIR_FILES[n]
TO_URL=upf+"\Desktop\移動先\"+ファイルタイトル追加用+"\"+GETDIR_FILES[n]
fs.moveFile(FROM_URL, TO_URL)
NEXT

else

//ファイル名変更
ps = "Get-ChildItem "+upf+"\Google ドライブ\*.wmv |" + _
" Rename-Item -NewName { $_.Name -replace '" + _
ファイル移動用タイトル+"','"+ファイルタイトル追加用+"' }"
POWERSHELL(ps)
//ファイル名変更ここまで

//ファイル移動
cnt=GETDIR( upf+"\Google ドライブ", "*"+ファイルタイトル追加用+"*"+".wmv", FALSE,

"3")
maxx=10
IF (cnt < maxx) THEN maxx=cnt
FOR n=0 TO maxx-1
FROM_URL=upf+"\Google ドライブ\"+GETDIR_FILES[n]
TO_URL=upf+"\Desktop\移動先\"+ファイルタイトル追加用+"\"+GETDIR_FILES[n]
fs.moveFile(FROM_URL, TO_URL)
NEXT
EndIf

NEXT

閲覧数:
97
回答数:
1
お礼:
25枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

uso********さん

2016/6/211:19:32

Get-ChildItem "C:\Program Files" #←正常に動く
Get-ChildItem 'C:\Program Files' #←正常に動く
Get-ChildItem  C:\Program Files  #←エラー
ファイル移動[fs.moveFile]自体は動いていて、
ファイル名変更に失敗しているのでは?

【蛇足】
Ifb ファイル移動用タイトル = ""
  ~ファイル移動1~
Else
  ~ファイル名変更~
  //ファイル名変更ここまで
  ~ファイル移動2~
EndIf

この2つの
  ~ファイル移動1,2~
部分は全く同一に見えるのだが気のせい?

Ifb ファイル移動用タイトル <> ""
  ~ファイル名変更~
  //ファイル名変更ここまで
EndIf
  ~ファイル移動~

でも良いように思えるけど。

質問した人からのコメント

2016/6/2 11:38:11

ご回答ありがとうございます。ファイル名変更で失敗していました・・・。また、IF文についてもご指摘ありがとうございます。早速修正対応を行います。

ファイル名変更については解決していませんので、別で質問を立てさせていただきます。ありがとうございます。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる