tervehdys, mitenkäs saan kerrottua parametrejä excelin koodista käsin dos komennoille?
elikkä rmdir toimii hyvin ilman /s parametriä kunhan kansio on tyhjä mutta miten saan tuon /s parametrin tai vastaavan mukaan jotta voisin poistaa kansioita joissa on sälää
Sub toinen()
usrinput = InputBox("anna etsimäsi kansion numero", "kansio haku")
path = "c:\" & usrinput
RmDir /s path
End Sub
Tai vaihtoehtoisesti jos kutsun .bat tiedostoa tuosta koodista, niin miten saisin kiikutettua .bat tiedostoon tuon path tiedon?
Kiitoksia
etsi kansio / tuhoa kansio
6
491
Vastaukset
- Kunde Rules
Aina silta saa vastauksen, jos asiallisesti kyselet
- minä itse =)
juu kundea lähinnä ajattelin kun tälle palstalle ongelmani kirjoitin.
Tuntuu mies(puhdas arvaus) meinaan käyttäneen exceliä muutaman kerran =)
vai onko olemassa joku kysy kundelta sivusto?
Mutta nyt en apua enään kaipaa vaan kerrankin keksin itse vastauksen =)
Eli alkuperäisessä pätkässä kansio ei poistunut koska siellä oli sälää, mutta pieni kiertotie ratkaisi asian eli tyhjinsin kansion kill lausekkeella vanha koodi:
Sub toinen()
usrinput = InputBox("anna etsimäsi kansion numero", "kansio haku")
path = "c:\" & usrinput
RmDir path
End Sub
Muutettu toimiva koodi:
usrinput = InputBox("anna etsimäsi kansion numero", "kansio haku")
path = "c:\" & usrinput
fullpath = path & "\*.*"
Kill fullpath
RmDir path
End Sub - jos ei alihakemistoja
minä itse =) kirjoitti:
juu kundea lähinnä ajattelin kun tälle palstalle ongelmani kirjoitin.
Tuntuu mies(puhdas arvaus) meinaan käyttäneen exceliä muutaman kerran =)
vai onko olemassa joku kysy kundelta sivusto?
Mutta nyt en apua enään kaipaa vaan kerrankin keksin itse vastauksen =)
Eli alkuperäisessä pätkässä kansio ei poistunut koska siellä oli sälää, mutta pieni kiertotie ratkaisi asian eli tyhjinsin kansion kill lausekkeella vanha koodi:
Sub toinen()
usrinput = InputBox("anna etsimäsi kansion numero", "kansio haku")
path = "c:\" & usrinput
RmDir path
End Sub
Muutettu toimiva koodi:
usrinput = InputBox("anna etsimäsi kansion numero", "kansio haku")
path = "c:\" & usrinput
fullpath = path & "\*.*"
Kill fullpath
RmDir path
End Submutta miks ei:
usrinput = InputBox("anna etsimäsi kansion numero", "kansio haku")
path = "/s c:\" & usrinput
RmDir path
End Sub - alkup.
jos ei alihakemistoja kirjoitti:
mutta miks ei:
usrinput = InputBox("anna etsimäsi kansion numero", "kansio haku")
path = "/s c:\" & usrinput
RmDir path
End SubJoo toihan olis aivan mahtava jos vaan toimisi, mutta esimerkissäsi se /s luetaan osaksi polkua ja tämän seurauksena se ei siis toimi
eli path = /s c:\syöte
antaa vaan ilmotuksen että path not found
toi tyhjentaa kansion vaikka siella olisi tiedostojakin. Kandee olla varovainen, ettei poista jotakin tarkeatakin.
Sub PoistaKansio()
Dim fso
Dim kansio As String
kansio = "c:\Testi"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(kansio) Then
fso.DeleteFolder kansio
Else
MsgBox kansio & " ei ole olemassa!" _
, vbExclamation, "Kansiota ei loytynyt"
End If
End Sub- alkup.
Eli ongelma ratkaistu, mutta mietiskelin jo aiemmin että onkohan keinoa saada siirrettyä käyttäjän syötettä esim. .bat suoritukseen tai .vbs:ään
syöte = inputbox(" kirjota jotain")
call c:\suoritus.bat
'ja batissa suorittaisi esim tuon poiston eli
rmdir /s "c:\" & syöte
ei varmaankaan pysty sillä ovathan ihan eri ympäristöjä, mutta tulipahan vaan mieleen...
Kiitos kuitenkin edellisestä
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kylläpä on nautinnollista taas tämä palstan vassari valitus!
Lähes jokainen avaus on vassareiden kitinää ja valitusta. Eikö se tarkoitakin, että silloin asiat menee maassamme parem582885HS: persujen v. 2015 turvapaikanhakijoista alle puolet töissä
Aikuisina Suomeen tulleista ja myönteisen päätöksen saaneista vain 42 prosenttia oli vuonna 2023 töissä, vaikka he ovat442182- 211863
Helvetistä ei ole paluuta
Kun ihminen laskeutuu kuolleiden maailmaan, kauhujen valtakuntaan ja tuonelan ovet sulkeutuu kiinni, se on karu tunne ku3831388Persut muuten hyväksyvät 2 + 8 mrd. euron maatalous- ja yritystuet
Vaikka molemmat tukimuodot tiedetään haitallisiksi, koska ovat käytännössä pelkkää säilyttävää tukea, eivätkä kannusta k301309- 651293
- 561079
Järjetön Topi-ilta
Lisää tappiota konkurssipesälle. Miten voi olla mahdollidta , että annetaan järjestää tämä. Sorsakoski pyörii haudassaan201049- 47943
Mikä kaivatussasi herätti mielenkiintosi
Kun tapasitte ensi kerran? Ulkonäössä? Luonteessa tai olemuksessa? Kuinka nopeasti mielenkiinto muuttui ihastukseksi?68910