ここから本文です

UWSC 「Uスクリプト:関数 powershell がありません」の対応方法 下記プログラ...

cho********さん

2016/6/121:29:51

UWSC 「Uスクリプト:関数 powershell がありません」の対応方法

下記プログラムを作成したのですが、上記エラーが35行目「POWERSHELL(ps)」で発生してしまいます。

どのように改善すればよいかご教示お願いいたします。

※windows8


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+"\desktop", "*"+ファイルタイトル追加用+"*"+".mp4", FALSE, "3")
maxx=10
IF (cnt < maxx) THEN maxx=cnt
FOR n=0 TO maxx-1
FROM_URL=upf+"\Desktop\"+GETDIR_FILES[n]
TO_URL=upf+"\Desktop\TV\"+ファイルタイトル追加用+"\"+GETDIR_FILES[n]
fs.moveFile(FROM_URL, TO_URL)
NEXT

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

//ファイル移動
cnt=GETDIR( upf+"\desktop", "*"+ファイルタイトル追加用+"*"+".mp4", FALSE, "3")
maxx=10
IF (cnt < maxx) THEN maxx=cnt
FOR n=0 TO maxx-1
FROM_URL=upf+"\desktop\"+GETDIR_FILES[n]
TO_URL=upf+"\Desktop\TV\"+ファイルタイトル追加用+"\"+GETDIR_FILES[n]
fs.moveFile(FROM_URL, TO_URL)
NEXT
EndIf

NEXT

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

違反報告

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

jun********さん

2016/6/123:51:53

UWSCのバージョンはどうなっていますか? POWERSHELLは、Ver4.6bから導入されているようです。

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

2016/6/2 10:27:09

ご回答ありがとうございます。最新のverをダウンロードしたら実行できました。ありがとうございました!

この質問につけられたタグ

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

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

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

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

閉じる

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

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

閉じる