サクサク読めて、アプリ限定の機能も多数!
トップへ戻る
コーヒー沼
qiita.com/Qiitacky
Option Explicit Sub TestPs() Dim sPath As String Dim dPath As String Dim psCmd As String Dim hoge As Variant sPath = "C:\work\hoge.txt" dPath = Replace(sPath, "hoge", "huga") psCmd = "Copy-Item " & sPath & " " & dPath hoge = runPshell(psCmd, 0, True) End Sub コメント 参照設定をユーザに操作させたくなかったのでCreateObject("WScript.Shell")を使っています。 変数intVsblでPowerShell画面の表示(1)/非表示(0)を選択できます。 変数waitFlgでPowerShell実行完了を待つ(True)
このページを最初にブックマークしてみませんか?
『qiita.com』の新着エントリーを見る
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く